Verified answer

Ответ:

program Quadratic;

var

a: integer = 1;

b: integer = -9;

c: integer = 20;

d: integer;

begin

d := b*b - 4*a*c;

if d < 0 then writeln('Нет натуральных корней.')

else if d = 0 then writeln('Один корень. x = ', ((-b + sqrt(d)) / (2*a)):5:2)

else {d > 0} writeln('Два натуральных корня x1 = ', (-b + sqrt(d)) / (2*a):5:2, ', х2 = ',(-b - sqrt(d)) / (2*a):5:2);

end.