Дан числовой отрезок натурального ряда чисел [20,80]. Найдите количество чисел кратных 6. нужно начертить блок схему и составить программу Паскаля. Здравствуйте помогите пожалуйста очень срочно!! заранее спасибо!

var   n, i, k, m: integer;   begin   k := 0;   readln(n);   for i := 1 to n do   begin     readln(m);     if (m mod 6 = 0) and (m mod 12 = 0) then       inc(k)   end;   writeln(k);   end.