Задача 3 Урок 14.2

Задача 3 Урок 14.2:

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

var a1,b:integer;

procedure podprog();
var a1,b:integer;

procedure podprog();
var a,b:integer;
begin
  a:=1;
  b:=10;
  repeat
    if (a1 mod 2)=1 then
      write('-')
    else
      write('+');
    a+=1;
  until (a>b);
end;

begin
  a1:=1;
  b:=4;
  repeat
    podprog();
    writeln();
    a1+=1;
  until (a1>b);
  readln();
end.
      

Вывод консоли:

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