Question

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

Answer 1

var y,x: real;

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

Answer 2

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