program FindRoots;
var
a, b, c: integer;
D: integer;
x1, x2: real;
begin
a := 3;
b := 2;
c := -4;

D := b b - 4 a * c;

if D > 0 then
begin
x1 := $-b+sqrt(D)$ / $2<em>a$;
x2 := $-b-sqrt(D)$ / $2</em>a$;
writeln${}^{\prime }Therootsare:x1{=}^{\prime },x1:0:2{,}^{\prime }andx2{=}^{\prime },x2:0:2$;
end
else if D = 0 then
begin
x1 := -b / $2\ast a$;
writeln${}^{\prime }Therootis:x{=}^{\prime },x1:0:2$;
end
else
writeln${}^{\prime }Theequationhasnorealroots{.}^{\prime }$;
end.