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

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

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

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

Вывод консоли:

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