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

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

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

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

program project1;
var i,j,m,n:integer;

begin
  i:=0;
  j:=0;
  m:=5;
  n:=6;
  while(i<m)do
  begin
      i:=i+1;
      while(j<n)do
      begin
        j:=j+1;
        if((i = 1) or (i = m) or (j = 1) or (j = n))then
          write('+')
        else
          write('-');
      end;
      writeln();
      j:=0;
  end;
  readln();
end.