var
x: real;
begin
readln(x);
if x < 2 then write(x * x + 4 * x + 5);
if x = 2 then write(1 / (x * x + 4 * x + 5));
if x > 2 then write(1);
end.
Алгоритм конец есть начало и конец
Попробуй переделать вот эту программу под себя: (см. скриншоты)
Или вот я доработал программу: Выводятся 3 окружности , радиус которых убывает на 50 пикселей
//PascalABC.NET версия 3.2, сборка 1389
begin
var a := ArrRandomInteger(10,0,100);
Println(a);
Println((a.Max+a.Min)/2);
end.