Написать на языке паскаль программу для вычисления функции при любом значении х. sin 3,2+sqrt 1+x y= |5|

Var
  x,y:real;
begin
  Write('x='); Read(x);
  y:=(3.2*sin(x)+sqrt(1+x))/abs(5);
  Writeln('y=',y)
end.