Составьте программу которая по заданному a исследует корни управления ax-5=0 и выводит на экран значения вычесленного корня либо сообщения ''Корней нет''

ты настоящий пацан

program qq;var a,x:real;begin read(a);x:=5/a;if a=0 then writeln('Корней нет') else writeln(x);end.