program Main;
var
number: integer;
begin
// Ввод числа
write('Введите число: ');
readln(number);

// Проверка условия
if (number > 100) and (number mod 3 = 0) then
writeln('Число ', number, ' больше 100 и кратно 3')
else
writeln('Число не соответствует условию');
end.