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

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

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

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

var b,a,i,j: integer;
begin
  writeln('Введите число M');
  readln(b);
  writeln('Введите число N');
  readln(a);
  i:=1;
  j:=1;
    while (i<=a) do
       begin
        while (j<=b) do
         begin
         if ((i mod 2)=0) then
           write('+')
         else
            write('-');
           j:=j+1;
         end;
    writeln();
    i:=i+1;
    j:=1
    end;
readln();
end.