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

Var a, x: longint;

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