Решение задачи №2 из главы 13.2

Задача №2 из главы 13.2

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

• - - - - - -
  + + + + + +
  - - - - - -
  + + + + + +
  - - - - - -

var m, n: integer;
begin
  m := 1; // начальное значение для счетчика внешнего цикла
  while (m <= 5) do // цикл по строкам таблицы, счетчик как левый множитель
    begin
    n := 1;// начальное значение для счетчика внутренного цикла
     while (n <= 6) do // выводим равенства очередной строки, счётчик как правый множитель
        begin
         if ((m mod 2)=0) then
         write('+ ')
         else

         write('- ');

         n:=n+1;
      end;
     writeln(' ');
     m:=m+1; // увеличиваем значение счетчика внешнего цикла
    end;
   readln();
end.