Найти дискриминант квадратного уравнения, если коофициент вводится с клавиатуры

Var a, b, c, e, f: integer;

d, x1, x2: real;

begin

write ('Введите коэффициент x^2: ') ;

readln (a) ;

write ('Введите коэффициент x: ') ;

readln (b) ;

write ('Введите свободный член: ') ;

readln (c) ;

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

if (d>=0) then

begin

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

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

write ('Уравнение имеет 2 корня: ') ;

writeln;

writeln ('Первый корень: ', x1:4:2) ;

writeln ('Второй корень: ', x2:4:2) ;

end

else

writeln ('Дискриминант < 0') ;

readln;

end.