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

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.