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

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

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

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

program u132z2;
var m,n,i,j: integer;
begin
  writeln('Vvedite N u M');
  readln(n); //ширина
  readln(m); //высота
  while (i<m) do
  begin
    while (j<n) do
    begin
      if (i mod 2=0) then //строка четная или нет
        write('- ')
      else
        write('+ ');
      j:=j+1;
    end;
    writeln();
    j:=0;
    i:=i+1;
  end;
  readln();
end.