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

program zz1;

var n:integer; / / задаем переменную целого типа

begin

read (n); / / записываем в переменную любое число с клавиатуры

if n mod 7 = 0 then write (' делится ') else write (' не делится '); / / проверяем условие, если число введенное с клавиатуры делится на семь без остатка, то выводим ответ ' делится ', если не делится на семь без остатка, то выводим ответ ' не делится '

end.