Батырхан любит числа котрые без остатка делятся на число 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.