Задача 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.