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

program zz1;
var n:integer; // задаем переменную целого типа
begin
read(n); // записываем в переменную любое число с клавиатуры
if n mod 7 = 0 then write( делится ) else write( не делится ); // проверяем условие, если число введенное с клавиатуры делится на семь без остатка, то выводим ответ делится , если не делится на семь без остатка, то выводим ответ не делится
end.