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

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

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

var m,i: integer;
begin
  m := 1;
  while (m < 6) do
   begin
     i := 1;
     while (i < 5) do
     begin
       if ((m mod 2)=0) then
          write('+ ')
       else
          write('- ');

       i := i + 1;
     end;
     writeln();
     m := m + 1;
   end;
  readln();
end.