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

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

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

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

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

var a:integer;
procedure cikl(z:integer);
var i: integer;
begin
  for i:=1 to 6 do
  if((a mod 2)=0)then
    write('+ ')
  else
    write('- ');
  writeln();
end;

begin
  for a:=1 to 5 do
    cikl(a);
readln();
end.