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

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

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с рамкой по краям):
1 + + + + + +
2 + - - - - +
3 + - - - - +
4 + + + + + +

var m,n,i,j: integer;
begin
m:=6;
n:=4;
for i:=1 to n do
begin
    for j:=1 to m do
    begin
        if (i=1) or (j=1) then write('* ')
        else if (i=n) or (j=m) then write ('* ')
        else write('- ');
    end;
    writeln();
end;
end.