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

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

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

program  u132z1;
var m, i, j, n: integer;
begin

  n:=1;
  while (n<8) do
    begin
      m:=1;
      while (m<8) do
      begin
        if ((n mod 2) = 0) then
          write('- ')
        else
            write('+ ');
        m:=m+1;

      end;
      n:=n+1;
      writeln();
    end;
  readln();
end.