Батырхан любит числа которые без остатка делятся на 3. К сожалению для очень больших чиселон не может проверить должен ли он любитьего или нет. Помогите ему написав программу, которая поможет ему.

Чтобы проверить , является ли число Х кратным 3 , используем оператор mod с условием и получимif х mod 3 = 0 then .....program zadacha;varx: integer;beginwriteln('vvedite chislo');readln(x);if x mod 3 = 0 then writeln('chislo ', x, ' delitsya na 3 ') else writeln('chislo ', x, ' ne delitsya na 3 ');end.