BEGIN
write('Введите целое число: ');
readln(n);
if n mod 3=0 then writeln('Введеное число делится на 3 без остатка!')
else writeln('Введенное число делится на 3 с остатком!');
END.