var a,b: integer;beginreadln(a);readln(b);if (a mod b)=0 thenwriteln('Число кратно')else writeln('Число не кратно');end.