Помогите пожалуйста с информатикой
Ответ:
var a,b: integer;
begin
readln(a);
readln(b);
if (a mod b)=0 then
writeln('Число кратно')
else writeln('Число не кратно');
end.
Объяснение: