[vindows93]

program z;
Var a,b,d,c,e,f:real;

begin
readln (a);
readln (b);
readln (c);
d:=(b*b)-((4*a)*c);
writeln (d);
e:=((b*b)-(sqrt(d)))/(2*a);
f:=((b*b)+(sqrt(d)))/(2*a);
writeln (e);
writeln (f);
end.

не флоат а реал но всёравно спс
а как условие типа
d>0 то
e:=((b*b)-(sqrt(d)))/(2*a);
f:=((b*b)+(sqrt(d)))/(2*a);
d<0 типа хрен тебе
d=0 то (-b)/(2*a)

плиз срочна чере 12 ч школа и информатика