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

Uses crt; a,b : integer; Begin Write ('Введите a:'); Readln(a); If (a=0) then writeln('Корней нет') Else writeln ('x равен ',14/a); End.