Помогите пожалуйста! Как на языке Паскаль записать не кратность.Например, икс не кратно 7. Обязательно объясните почему именно так)

Ответ:

Объяснение:

program krat;

var y,x:integer;

begin

y:=7;

read (x);

if (x mod y)=0 then

 writeln ('Кратно 7') else

 writeln ('Не кратно 7');

end.

Mod отвечает за остаток от деления, поэтому если число делится на 7 без остатка (mod = 0), то это число кратно 7.