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

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

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

var M, N, i, j: integer;
begin
  i:=1;
  j:=1;
  readln(M);
  readln(N);
  repeat
    repeat
      if ((i=1) or (i=M) or (j=1) or (j=N)) then
        write('+ ')
      else
        write('- ');
      j:=j+1;
    until j>N ;
    writeln();
    i:=i+1;
    j:=1;
  until i>M  ;

  readln();
end.