Reikia pagalbos su FPS kodu

Sveiki, babandziau ant „bajerio“ pakurti kvadratiniu lygciu programele, taciau visus atsakymai buna 0.5 mazesni. Pvz.: x = -4;2, o su ta programa gaunu x = -4.5;0.5. Kodel taip yra? Apacioje idedu koda:

program kvdarlygt;
var a, b, c, d: integer;
x1, x2: real;
begin
writeln ('Iveskite koeficienta a');
read (a);
writeln ('Iveskite koeficienta b');
read (b);
writeln ('Iveskite koeficienta c');
read (c);
d:=(b*b)-4*a*c;
x1:= ((-1)*b) - sqrt(d)/(2*a);
x2:= ((-1)*b) + sqrt(d)/(2*a);
writeln ('');
writeln ('Lygties sprendiniai:');
writeln (x1:3:2);
writeln (x2:3:2);
Readln(x1,x2);
end.

Nes skaičiuodamas x1 ir x2 tu varai visus veiksmus iš eilės,neatsižvelgdamas kaip atrodo pati formulė,todėl programa suskaičiuoja kiek kitokia tvarka viską.Pirma skaitikly turi suskaičiuot

 ((-1)*b) - sqrt(d) 

, o po to tik padalint iš dviejų 'A'.Tai klaida yra tame,kad trūksta vienų skliaustų ir tas dvi eilutes tereikia pakeist į

x1:= (((-1)*b) - sqrt(d))/(2*a);
x2:= (((-1)*b) + sqrt(d))/(2*a);

Nepamirsk, kad sprendiniu gali nebuti arba buti tik vienas.