Составить программу вычисления значения функции 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.