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

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

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

var n,m,i: integer;
procedure Flag(a,b: integer);
begin
repeat
  if Odd(a) then
  begin
    for i:=1 to b do
    write('- ');
    writeln();
  a-=1;
  end
  else
  begin
    for i:=1 to b do
    write('+ ');
    writeln();
  a-=1;
  end;
until(a<1);
end;

begin
  readln(n,m);
  for i:=1 to m do
  begin
    Flag(n,m);
    writeln();
  end;
readln();
end.