[Emelman]

Вот готовая программа:

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);
if d>0 then
begin
e:=((b*b)-(sqrt(d)))/(2*a);
f:=((b*b)+(sqrt(d)))/(2*a);
writeln(e);
writeln(f);
Writeln('дискриминант отрицательный');
end;

if d=0 then
begin
e:=(-b)/(2*a);
writeln(e);
Writeln('одно решение');
end;

if d<0 then
Writeln('дискриминант отрицательный хрен тебе в руки');
End.

Только результаты отображаются некрасиво, округлить бы их наверное надо.