Составьте программу которая проверяет делится ли на 7 данное целое число n

Var     n: integer; begin     readln(n);     writeln(n mod 7 = 0); end.