Задачі на обчислення значення функції

Приклад

Складіть програму, яка обчислює значення y для будь-якого дійсного X, що введено з клавіатури.

Var x,y:real;
begin
write('x=');read(x);
if x<5 then y:=(4*sqr(x)+1)/(x-5)
else y:=3*sqr(x)-2;
Writeln(y:1:2);
end.

Складіть програму, яка обчислює значення y для будь-якого дійсного X, що введено з клавіатури.