У меня в голове уже все языки перемешались в кашу. Пишу галиматью и ввожу тебя в заблуждение.
Код:
if d>0 then begin
e:=((b*b)-(sqrt(d)))/(2*a);
f:=((b*b)+(sqrt(d)))/(2*a);
end;
if d<0 then writeln ('Хрен тебе в обе руки!');
if d=0 then [какая-нибудь переменная]:=(-b)/(2*a);
Дабы больше не обманывать, наверное, больше советов давать пока не буду, пока не восстановлю познания языков.
