Найти сумму корней квадратных из трёхзначных натуральных чисел.

Создайте прогу которая просчитывала это на ABCpascal

Var

a, b, c : integer;

d, x1, x2, s : real;

begin

writeln ('ax^2+bx+c=0');

write ('a=');

readln (a);

write ('b=');

readln (b);

write ('c=');

readln (c);

d : = sqr (b) - 4 * a * c;

if d < 0 then

writeln ('Корней нет')

else

begin

x1 : = (-b + sqrt (d)) / (2*a);

x2 : = (-b - sqrt (d)) / (2*a);

if x1 x2 then

begin

writeln ('x1=', x1);

writeln ('x2=', x2);

s : = x1+x2;

writeln ('s=', s);

end

else

writeln ('x=s=', x1);

end;

end.