составьте программу определяющую является ли данное число делителем числа 3

Question

составьте программу определяющую является ли данное число делителем числа 3

Answer 1

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

begin

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

read(x);

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

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

end.