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

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

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

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

program zadacha2;
var i, j ,n, m :integer;
begin
  n:=20;
  m:=40;
  while i < n do
    begin
      j:=0;
        while j < m do
          begin
            if (i = 0) or (i = (n-1)) then
              write('+ ')
            else
            if (j = 0) or (j = (m-1)) then
              write('+ ')
            else
              write('- ');
            j:=j+1;
          end;
      writeln();
      i:=i+1;
    end;
  readln();
end.