Вычислить значение функции y=2sinx+5/x и составить программу в паскале

Var x, y: real;
begin
     readln(x);
     y := 2 * sin(x) + 5 / x;
     writeln('y(', x, ') = ', y);
end.