Задача 4 Урок 14

Задача 4 Урок 14:

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

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

-- для вывода очередной строки используйте подпрограмму, принимающую на вход нужные агрументы.

procedure str(b: boolean);
var a: integer;
begin
  for a := 1 to 6 do
    begin
     if b then write('+ ')
     else write('- ');
    end;
end;

var i: integer;
  z: boolean;
begin
  z := false;
  for i := 1 to 5 do
    begin
     str(z);
     writeln();
     z := not z;
    end;
  readln();
end.