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

Урок 13.2

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

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

var n, m, i, j: integer;

begin
  i := 0;
  j := 0;
  writeln ('Vvedite visotu flaga');
  readln(n);
  writeln ('Vvedite shirinu flaga');
  readln(m);
  while(i < n) do
  begin
    while(j < m) do
    begin
      if (j = 0) or (j = m - 1) or (i = 0) or (i = n - 1) then
        write('+', ' ')
      else
        write('-', ' ');
      j := j + 1;
    end;
    writeln();
  j := 0;
  i := i + 1;
  end;
end.

КОНСОЛЬ

Vvedite visotu flaga
5
Vvedite shirinu flaga
6
+ + + + + + 
+ - - - - + 
+ - - - - + 
+ - - - - + 
+ + + + + +