Задача 3 Урок 14.2

Задача 3 Урок 14.2:

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

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

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

program u142z3;
var n,m,i:integer;
procedure stroka(c,d:integer);
var j:integer;
begin
  for j:=1 to c do
    if (d mod 2=1) then
      write('-')
    else
      write('+');
    writeln();
end;
begin
  writeln('vvedite N u M');
  readln(n,m);
  for i:=1 to m do
    stroka(n,i);
  readln();
end.