IF pascal abc посчитайте

program Chernovik;

var x,y:real;

begin

write('x = ');

readln(x);

if x < 5 then y:=(3*x+9*sqrt(sqr(x)+3))/(x-5)

else y:=x*x+3*x-19;

write('y = ',y:0:3)

end.

Ввод х

Если условие х < 5 истинно, то вычисляем у по формуле y:=(3*x+9*sqrt(sqr(x)+3))/(x-5), иначе вычисляем у по формуле y:=x*x+3*x-19

Вывод значения у на экран

sqr - возведение в квадрат

sqrt - вычисление корня квадратного

:0:3 - форматированный вывод 3 знака после запятой