Определить, кратно ли заданное число трём; если нет, вывести остаток.
(Напишите на языке программирования)
Пожалуйста!!!!

var x:integer;

Begin

 write('Введите число: '); read(x);

 if(x mod 3 = 0) then write('Число кратно трем!') else

   write('Число не кратно трем (остаток: '+x mod 3+')');

End.