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

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

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

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

Решение:

program task_3_lesson_13_2;
var n, m : integer;
begin
  m := 1;
  n := 1;
  while n <= 4 do
        begin
          while m <= 6 do
                begin
                     if (n = 1) or (n = 4) or (m = 1) or (m = 6) then
                        write('+ ')
                     else
                         write('- ');
                     m += 1;
                end;
          writeln();
          m := 1;
          n += 1;
        end;
  readln();
end.