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

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

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

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

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

var i, i1, N, M: integer;
    x: boolean;

procedure line(x: boolean; y: integer);
begin
  if x then
    for i:=1 to y do
      write('- ')
  else
    for i:=1 to y do
      write('+ ')
end;

begin
  x := true;
  writeln('Vvedite N, M');
  readln(N, M);
  for i1:=1 to N do
    begin
      line(x, M);
      x:=Not x;
      writeln();
    end;
  readln();
end.