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

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

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

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

var m, n, i, j: integer;
begin
  m := 4; // количество рядов
  n := 6; // количество элементов в ряду
  i := 0; // начальное значение для счетчика внешнего цикла
  while i < m do
  begin
    i := i + 1;
    j := 0;
    while j < n do
    begin
      j := j + 1;
      if (i = 1) or (i = m) then // первый и последний ряд
        write('+')
      else
        if (j = 1) or (j = n) then
          write('+') // первый и последний символ в ряду
        else
          write('-');
    end;
    writeln();
  end;
  readln();
end.