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

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

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

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

Вывод консоли:

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