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

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

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

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

program lesson13_2_3;
var
    n, m, i, j: integer;
begin
    n := 10;
    m := 10;
    for i := 1 to n do
    begin
        for j := 1 to m do
            if (i = 1) or (i = n) or (j = 1) or (j = m) then
                write('+ ')
            else
                write('- ');
        writeln();
	end;
	readln();
end.