[Konrad]

Сообщение от zhenya20091

теперь вроде бы всё )))

Врядли.
Проверь еще раз...

Сообщение от zhenya20091

d=b^2-4ac
x1:=(-b + Sqrt(diskrim))/a^2;

x2:=(-b - Sqrt(diskrim))/a^2;