Решить уравнение

uses crt;
var a,b,c:integer;
d,y1,y2,x1,x2:real;
 
begin
 clrscr;
 x1:=0;
 x2:=0;
 write('A B C -> ');
 readln(a,b,c);
 d:=sqr(b)-4*a*c;
 if d>0 then
 begin
  y1:=(-b+sqrt(d))/2/a;
  y2:=(-b-sqrt(d))/2/a;
  x1:=exp(y1*ln(10));
  x2:=exp(y2*ln(10));
 end
 else if d=0 then
 begin
  y1:=-b/2/a;
  x1:=exp(y1*ln(10));
 end;
 if (x1=0) and (x2=0) then writeln('Корней нет!') else
 if (x1=0) and (x2<>0) then writeln('Один корень, Y=',y2:0:4) else
 if (x2=0) and (x1<>0) then writeln('Один корень, Y=',y1:0:4) else
 writeln('Два корня, Y1=',y1:0:4,' Y2=',y2:0:4);
 readln;
end.

{Переменные объявляем как Real, кроме переменных для управления массивом}
Var I,K,M,N: Integer;
Begin
 
{если A, B, C вводятся вручную}
WriteLn('Введите A');
ReadLn(A);
WriteLn('Введите B');
ReadLn(B);
WriteLn('Введите C');
ReadLn(C);
 
{Вычисляем D}
D := B*B - 4*A*C;
 
If D < 0 Then
 WriteLn('Уравнение не имеет корней');
Else
  Begin
    Y1 := (-B + sqrt(D)) / 2*A);
    Y2 := (-B - Sqrt(D)) / 2*A);
    X1 := 10;
    Y2 := 10;
    I := Trunc(Y1);
    K := Trunc(Y2);
    For M = 1 To I Do
    X1 := X1*10;
    For N := 1 To K Do
    X2 := X2*10;
  End;
If X1 = X2 Then
  WriteLn('Уравнение имеет один корень:', X1);
Else
  Begin
    WriteLn('Первый корень уравнения:');
    WriteLn(X1);
    WriteLn('Второй корень уравнения:');
    WriteLn(X2);
  End;
End.