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

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

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

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