var x: integer (если числа с запятой то тип real);

begin

write('введите предполагаемый делитель');

read(x);

if 3 mod x = 0 then write ('да,заданное число делитель числа 3')

else write ('заданное число не делитель числа 3');

end.