read (a);
b := (a - (a mod 100))/100;
if b mod 3 = 0 then print ('кратно') else print ('не кратно');
Объяснение:
