Program fdfe;var a,x: real;BeginWriteln('введите a'); read(a);x:=5/a;if x=0 then writeln('корней нет') elsewriteln('х равно ',x);readln;end.
Program fdfe;
var a,x: real;
Begin
Writeln('введите a'); read(a);
x:=5/a;
if x=0 then writeln('корней нет') else
writeln('х равно ',x);
readln;
end.