Задача 2 урок 13.2

Задача 2 урок 13.2

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

var m,n: integer;
begin
m:=6;
n:=5;
while (n>0) do
begin
if (n mod 2=1) then
begin
    m:=6;
    while (m>0) do
    begin
        write('- ');
        m-=1;
    end;
    n-=1;
    writeln();
end
else 
begin
    m:=6;
    while (m>0) do
    begin
        write('+ ');
        m-=1;
    end;
    n-=1;
    writeln();
end;
end;
end.