Определить, кратно ли заданное число трём; если нет, вывести остаток. (Напишите на языке программирования) Пожалуйста!!!!
var x:integer;
Begin
write('Введите число: '); read(x);
if(x mod 3 = 0) then write('Число кратно трем!') else
write('Число не кратно трем (остаток: '+x mod 3+')');
End.