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