Помогите пожалуйста с информатикой

Ответ:

var a,b: integer;

begin

readln(a);

readln(b);

if (a mod b)=0 then

writeln('Число кратно')

else writeln('Число не кратно');

end.

Объяснение: