Рассмотрев дискриминант D = B^2 - 4*A*C, проверить истинность высказывания: «Квадратное уравнение Ax^2+ Bx + C = 0 имеет вещественные корни»

Даны числа A, B, C (число A не равно 0).

Program Boolean24;
Var
a,b,c,D:Integer;
Begin
ReadLn(a,b,c);
D := Sqr(b) - 4*a*c;
WriteLn(D >= 0);
end.

автор: Sklyarov Sergej a.k.a. S9