Дано целое число. Проверить: является ли данное число отрицательным двузначным числом кратным десяти. В PascalABC

Предыдущий
вопрос Следующий
вопрос

Program CheckNumber;
var
num: integer;
begin
writeln('Enter an integer: ');
readln(num);

if (num < 0) and (abs(num) >= 10) and (num mod 10 = 0) then
writeln('The number is negative, two-digit and divisible by 10.')
else
writeln('The number is either positive, not two-digit or not divisible by 10.');
end.

В этой программе мы сначала запрашиваем у пользователя целое число. Затем мы проверяем условия: число отрицательное, модуль числа больше или равен 10 и число делится на 10 без остатка. Если все три условия выполняются, выводится сообщение о том, что число отрицательное, двузначное и делится на 10. Если хотя бы одно из условий не выполняется, выводится соответствующее сообщение.