program CheckIfThreeDigitNumber;
varnumber: integer;
beginwrite('Введите число: ');readln(number);
if (number >= 100) and (number <= 999) thenwriteln('Да, число является трехзначным.')elsewriteln('Нет, число не является трехзначным.');end.
program CheckIfThreeDigitNumber;
var
number: integer;
begin
write('Введите число: ');
readln(number);
if (number >= 100) and (number <= 999) then
writeln('Да, число является трехзначным.')
else
writeln('Нет, число не является трехзначным.');
end.