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

Question

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

Answer 1

Program fgg;

var
x: Real;

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