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

Program fgg;

var
x: Real;

begin
Write('Введите х: ');
ReadLn(x);
if x = 0 then
WriteLn('Ошибка. На 0 делить нельзя')
else
WriteLn('y=', sin(x) + 1 / x);
end.