Составить программу которая находит корни неполного квадратного уравнения

Program koren;
var a,b,c,diskr,x1,x2:real;
begin
readln (a,b,c);
if a=0 then exit;
diskr:=b*b-4*a*c;
if diskr<0 then exit;
x1:=(-b-sqrt(diskr))/(2*a));
x1:=(-b+sqrt(diskr))/(2*a));
writeln (x1,x2);
end.