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

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

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

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

Консоль:

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