Написать программу вычисления значения функции y=1/x. Мы знаем, что на ноль делить нельзя, поэтому в программе, если x=0, будем присваивать y значение 0

Program funtion ;var y,x:real;beginwriteln ('введите х');readln(x)if (x=o)then y:=0else y:=1/x;writeln('y=',y)end.

varx,y:real;beginwrite('Введите значение x=');read(x);if x=0 then beginy:=0;writeln('Y=',y);end;if x<>0 then beginwriteln('Y=',1/x);end;end.