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

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

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

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

program u132z3;
var m,n,i,j: integer;
begin
  writeln('Vvedite N u M');
  readln(n); //ширина
  readln(m); //высота
  while (i<m) do
  begin
    while (j<n) do
    begin
      if (j=0) or (j=(n-1)) or (i=0) or (i=(m-1)) then
        write('+ ')
      else
        write('- ');
      j:=j+1;
    end;
    writeln();
    j:=0;
    i:=i+1;
  end;
  readln();
end.