Question

помогите составить задачу в pascal

Answer 1

var x,y: Real;

begin  

writeln('Введите значение x');

readln(x);

if(x<=2) then y:= x*x+4*x+5 else y:= 1/(x*x+4*x+5);

writeln('F(x) = ', y);

end.