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

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

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

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

program zadacha4;
var n, m, j: integer;
  z: boolean;

procedure flag(a:boolean; b:integer);
var i: integer;
begin
  if a then
    for i:=1 to b do
      write('+')
  else
    for i:=1 to b do
      write('-');
end;

begin
  writeln('Vvedite N');
  readln(n);
  writeln('Vvedite M');
  readln(m);
    for j:=1 to n do
      begin
        if j mod 2 = 0 then
          z:=true
        else
          z:=false;
        flag(z,m);
        writeln();
      end;
  readln();
end.