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

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

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

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