Даны два целых числа: A, B. Проверить истинность высказывания: Справедливы неравенства A ≥ 0 или B < –2» - Pascal(Паскаль)

program logik;
var A, B: integer;
begin
    write('Введите A и B: ');
    read(A, B);
    writeln('Справедливы неравенства A ≥ 0 или B < –2 - ',(A >= 0) or (B < -2));
end.