Найти корни квадратного уравнения x(x+a)=0, для произвольного значения постоянного...

Question

Найти корни квадратного уравнения x(x+a)=0, для произвольного значения постоянного коэффициента a. Последний этап решения реализовать на языке программирования Pascal.

Answer 1

Var a, x: longint;

begin
 readln (a);
 x:=-a;
 writeln ('x1=0');
 writeln ('x2=',x);
end.