Паскаль, цикл while
Вводятся числа, посчитать кол-во чисел, которые делятся на 2 и которые делятся на 3. Ввод закончить 0. Вывести на экран кол-во чисел , делящихся на 2 и кол-во чисел, делящихся на 3.
помогите, пожалуйста

n, i, k, d, t:integer;beginwhile n<>0 doreadln(n);if (n mod 2)=0 then d:=d+1;if (n mod 3)=0 then t:=t+1;writeln(d,' ',t);readln;end.