Дано действительное число a. вычислить f(a), если f(x)= система x^2+4x+5, при x

Если не тот язык, укажите какой нужен.

var a: integer;
      f: real;
begin 
  write('Введите а: '); readln(a);
  if(a <= 0) then f := sqr(a) + 4*a + 5
  else f := 1 / (sqr(a) + 4*a + 5);
  writeln('f(', a, ') = ', f);
end.