НАПИСАТЬ ПРОГРАММУ НАХОЖДЕНИЯ ЗНАЧЕНИЯ ФУНКЦИИ Х^2 +4Х+5/1/Х^2-4 ПАСКАЛЬ
var x:real;
begin
read(x);
x := x*x + 4*x + 5 / (1 / (x*x - 4));
write(x:0:2);
end.
а там не через if?