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

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.