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

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

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

var
   m, n, i, j: integer;
begin
  i:= 1;
  j:= 1;
  m:= 5;
  n:= 6;
  while (i <= m) do
  begin
    while (j <= n) do
       begin
         if ((i mod 2) <> 0) then
            write('- ')
         else
            write('+ ');
         j:= j + 1;
       end;
    writeln();
    i:= i + 1;
    j:= 1;
  end;
  readln();
end.