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

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

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

program  u132z3;
var m, i, j, n: integer;
begin

  n:=1;
  while (n<8) do
    begin
      m:=1;
      while (m<8) do
      begin
        if (((n > 1) and (n < 7)) and ((m > 1) and (m < 7))) then
          write('- ')
        else
            write('+ ');
        m:=m+1;

      end;
      n:=n+1;
      writeln();
    end;
  readln();
end.      

Ответ в колнсоль

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