вычислить y=1/x если при x=0 решений нет

var y,x: real;beginreadln(x);if x=0 then writeln('решений нет')else begin y:=1/x; writeln(y) end;end.

//PascalABC.NET//Версия 3.3, сборка 1634beginvar x:=ReadReal;if x=0 then write('нет решений') else write(1/x);end.