Урок 13.2 Задача 2

Урок 13.2 Задача 2

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

var M, N, i, j: integer;
begin
  i:=1;
  j:=1;
  readln(M);
  readln(N);
  repeat
    repeat
      if ((i mod 2)=0) then
        write('- ')
      else
        write('+ ');
      j:=j+1;
    until j>N ;
    writeln();
    i:=i+1;
    j:=1;
  until i>M  ;

  readln();
end.