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

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

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

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

var i, j, m, n: integer;
begin
  writeln('Введите целое число строк :');
  readln(m);
  writeln('Введите целое число столбцов :');
  readln(n);
  for i:=1 to m do
   begin
      for j:=1 to n do
       if (i = 1) or (i = m) or (j = 1) or (j = n) then write('+ ')
       else write('- ');
      writeln();
   end;
  readln();
end.