Ответы и объяснения

2014-01-11T01:42:13+04:00
Program chik;
var x,y:real;
begin
readln(X);
if(x<>0)then begin
y:=1/x;
writeln(y);
end;
if(x=0)then writeln('FALSE');
end.