Pascal abc: составьте программу вычисления неполного квадратного уравнения ax^2+c=0

[pascal]program uravnenie;

var a,b,c,x1,x2,d,y: integer;

begin

readln(a);

readln(b);

readln(c);

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

writeln(y=sqrt(d: integer): real);  

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

x2: =(-b-y)/(2*a);

writeln(x1, x2);

readln();

end.

вроде так ошибок нету вроде