Нужно составить текст программы на языке паскаль которая вычисляет значение выражения по формуле y=1:x и предусмотреть невозможность работы программы с цифрой 0.(пожалуйста помогите)

.

Var x:real;BeginWriteLn('y = 1/x');Write('x = ');ReadLn(x);if x = 0 then WriteLn('Ошибка: на ноль делить нельзя!')else WriteLn('y = ',1/x)End.Примеры работы программы:y = 1/xx = 0Ошибка: на ноль делить нельзя!y = 1/xx = 0.333333333333333333y = 3y = 1/xx = 7y = 0.142857142857143