Mine:
SCAR Code:
Var A, B, C : Extended;
Ans : Array [0..1] Of Extended;
Astr, Bstr, Cstr : String;
begin
Astr := ReadLn('What is the value of A in an integer form');
Bstr := ReadLn('What is the value of B in an integer form');
Cstr := ReadLn('What is the value of C in an integer form');
A := StrToFloatDef(Astr, 0);
B := StrToFloatDef(Bstr, 0);
C := StrToFloatDef(Cstr, 0);
wait(8);
Ans[0] := (-B + Sqrt(Sqr(B) - (4* A * C))) div (2 * A);
Ans[1] := (-B - Sqrt(Sqr(B) - (4* A * C))) div (2 * A);
WriteLn('The answer is X = '+FloatToStr(Ans[1])+', Or X = '+FloatToStr(Ans[0]));
end.
E: Lol, it's pretty basic compared to yours