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

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

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

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

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

program U14Z4;
var m,n,i,j: integer;
procedure p1(a,b: integer);
begin
    if ((i mod 2)<>0) then
        for j:=1 to n do
        write('- ')
      else
        for j:=1 to n do
        write('+ ');
end;
begin
  writeln('vvedite M i N');
  readln(m,n);
  for i:=1 to m do
  begin
    p1(m,n);
    writeln();
  end;
  readln();
end.