условный и циклический оператор

[kolyan45]

1.Найти количество цифр, кратных 3ем, во введенном натуральном числе.
2.Найти количество трехзначных чисел кратных 4.

[Mad_Cat]

2)
k:=0;
for i:=100 to 999 do
if i mod 4=0 then inc(k);

[kolyan45]

спасибо большое!