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

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

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

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

program project1;
var i,j,m,n:integer;

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