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

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

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

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

var i, k,  M, N: integer;
begin
  writeln('vvedi shiriny');
  readln(M);
  writeln('vvedi visota');
  readln(N);
  k := 1;
  while(k <= N) do
    begin
      i := 0;
      while(i < M) do
        begin
          if((k = 1) or (k = N) or (i = 0) or (i = (M-1))) then
            write('+')
          else
            write('-');
          i := i + 1;
        end;
      writeln();
      k := k + 1;
    end;
  readln();
end.