Вложенность отмечена отступами.
Начало
F(1)
Вывод 1
1 < 4 Истина
F(1+1=2)
Вывод 2
2 < 4 Истина
F(2+1=3)
Вывод 3
3 < 4 Истина
F(3+1=4)
Вывод 4
4 < 4 Ложь
<u>Конец
</u>
F(3+3=6)
Вывод 6
6 < 4 Ложь
<u>Конец</u>
F(2+3=5)
Вывод 5
5 < 4 Ложь
<u>Конец
</u>
F(1+3=4)
Вывод 4
4 < 4 Ложь
<u>Конец
</u>
<u>Конец</u>.
1+2+3+4+6+5+4 = 25
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrReal(4);
Writeln('Max=',a.Max,', min',a.Min)
end.
<u>Пример:</u>
-45.4 18 0 4.17
Max=18, min-45.4
Для рисования прямоугольника есть специальная функция.
rectangle(x1,y1,x2,y2);
x1,y1 - координаты левой, верхней вершины.
x2,y2 - координаты правой, нижней вершины.
Пример в приложении.