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

Гляди.

икс не кратно 7 записывается так:

x mod 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.