Тема закрыта для обсуждения!

DjDance, блин .. стыдно((
исправил, но опять таки что-то не то....
Добавлено 24.07.13 в 14:05:34:
нашел. крою

не правильно вычисляет дискриминант...
Program sqr;
Var
x1,x2,a,b,c,d:real;
Begin
Write(\'a =\');
Read(a);
Write(\'b =\');
Read(b);
Write(\'c =\');
Read(c);
if a<=0 then
d:=b*b-(4*c);
if a>0 then
d:=b*b-(4*a*c);
WriteLn(d);
{If a<=0 then
x1:=(-b)+sqr(d)/2;
If a >0 then
x1:=(-b)+sqr(d)/2*a;
WriteLn(x1);
If a<=0 then
x2:=(-b)-sqr(d)/2;
If a >0 then
x1:=(-b)-sqr(d)/2*a;
WriteLn(x2);}
end.