Написал программу по вычислению корней кв. уравнения, но не понял, что надо вводить в окно, помогите плиз

var a,b,c:integer;
x1,x2,d:real;
begin
readln(a,b,c);
if a=0 then writeln('уравнение не квадратное') else begin
d:=sqrt(b*b-4*a*c);
if d<0 then writeln('уравнение не имеет корней');
if d=0 then begin x1:=(-1*b)/(2*a); writeln(x1);end;
if d>0 then begin x1:=(-1*b)-d/(2*a); x2:=(-1*b)+d/(2*a);writeln(x1,' ',x2);end;
end
readln;
end.