Составьте программу, которая выводит целую часть от деления целого числа на m на 6, если оно кратно 6

Var
    m : integer;
begin
    readln(m);
    if m mod 6 = 0 then
        writeln(m div 6)
end.