Задание 3 Урок 13.2

Задание 3 Урок 13.2

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

1 + + + + + +
2 + - - - - +
3 + - - - - +
4 + + + + + +

var m,n,vertikal,gorizont: integer;
begin
  vertikal := 1;
  gorizont := 1;
  write('Введите количество знаков по горизонтали и количество знаков ');
  write('по вертикали, и нажмите ENTER: ');
  readln(m,n);
  while (vertikal <= n) do
  begin
    while (gorizont <= m) do
    begin
      if ((vertikal = 1) or (vertikal = n))
        or ((gorizont = 1) or (gorizont = m))then
          write('+ ')
      else
        write('- ');
      gorizont += 1;
    end;
    writeln();
    vertikal += 1;
    gorizont := 1;
  end;
  readln();
end.