Помогите 25 баллов. 7)Составить программу, которая по заданному "a" исследует корни...

Question

Помогите 25 баллов.
7)Составить программу, которая по заданному "a" исследует корни уравнения "ax=5" и выводит на экран значение вычисленного корня а если нет то сообщение (Корней нет).

Answer 1

Var a:real;
begin
readln(a);
if a=0 then writeln('Корней нет')
else writeln('x = ',5/a:4:2);
end.

Пример:
4
x = 1.25