Проверить истинность высказывания: «Справедливы неравенства A >= 0 или B»

Даны два целых числа: A, B.

Program Boolean5;
Var
A,B:Real;
Begin
ReadLn(A,B);
WriteLn((A >= 0) Or (B < -2));
ReadLn;
end.

автор: lamed