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

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

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

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

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

program task_4_lesson_14;
var i: integer;

procedure paint_plus(str_num: integer);  // Передаю процедуре номер строки
var i : integer;
  begin
    if ((str_num mod 2) = 0) then
      for i := 1 to 6 do
        write(' + ')
    else
      for i := 1 to 6 do
        write(' - ');
  end;
        // Тело программы
begin
  for i := 1 to 5 do
    begin
      paint_plus(i);
      writeln();
    end;
  readln
end.