Решение задачи №3 из главы 13.2

Задача №3 из главы 13.2

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

• + + + + + +
  + - - - - +
  + - - - - +
  + + + + + +

var i , j ,m , n : integer;

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