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

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

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

Консоль:

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