Задание 2 Урок 13.2

Задание 2 Урок 13.2

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

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

var a,b: integer;
begin
a:=1;
b:=1;
  while(a<=5) do begin
    while(b<=6) do begin
      if((a mod 2) = 1) then begin
         write('- ');
      end
      else begin
         write('+ ');
        end;
      b:=b+1;
  end;
    writeln();
    a:=a+1;
    b:=1;
  end;
readln();
end.