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

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

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

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

program U13_2Z3;
var m,n,i,j: integer;
begin
  i:=1;
  j:=1;
  writeln('vvedite dlinu flaga');
  readln(m);
  writeln('vvedite shirinu flaga');
  readln(n);
  while (j<=n) do
    begin
      while (i<=m) do
        begin
          if (j=1) or (j=n) or (i=1) or (i=m) then
            write('+ ')
          else
            write('- ');
          i:=i+1;
        end;
    j:=j+1;
    i:=1;
    writeln();
    end;
  readln();
end.