Решить на pascal abc, . для данного целого x найти значение следующей функции f, принимающей значения целого типа: f(x)= 9x/17 при x< 1 или x> 5 x^2+81 (под корнем) , в противном случае.

Var
  x,f:real;
begin
  Write('x='); Read(X);
  if (x<1) or (x>5) then f:=9*x/17
  else f:=Sqrt(x*x+81);
  Writeln('f(x)=',f)
end.