Батырхан любит числа котрые без остатка делятся на число 3

3 , 6 , 9 , 12 , 15 , и т.д

Program n3;
var x,n:integer;
begin
write('x:'); read(x);
if x mod 3=0 then write('цифра делятся на 3')
                             else write('цифра делятся не 3');
end.