Задача 4 Урок 14

Задача 4 Урок 14

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с чередованием плюсов и минисов в строках):
-- для вывода очередной строки используйте подпрограмму, принимающую на вход нужные агрументы.

procedure print(a, b : integer);
var
    i : integer;
begin
    if a mod 2 = 0 then
        for i := 1 to b do
            write('+ ')
    else
        for i := 1 to b do
            write('- ');
    writeln();
end;

var
    c, d, x: integer;
begin
    c := 10;
    d := 10;
    for x := 1 to c do
        print(x, d);
    readln();
end.