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

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

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

Консоль:

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