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

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

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

- - - - - -
+ + + + + +
- - - - - -
+ + + + + +
- - - - - - 

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