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

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

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

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

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

program U14Z4;
var m,n,i:integer;
    plus,minus:char;
procedure vivod(x:integer;ch:char);
var j:integer;
begin
  for j:=1 to x do
    write(ch,' ');
  writeln;
end;
begin
  writeln('vvedite m i n');
  readln(m,n);
  plus:='+';
  minus:='-';
  for i:=1 to m do
  begin
    if ((i mod 2)=0) then
      vivod(n,plus)
    else
      vivod(n,minus)
  end;
  readln();
end.