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

Вложенные циклы. Часть 2

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

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

//+ + + + + + + + +
//+ - - - - - - - +
//+ - - - - - - - +
//+ - - - - - - - +
//+ - - - - - - - +
//+ - - - - - - - +
//+ - - - - - - - +
//+ - - - - - - - +
//+ + + + + + + + +