Сколько существует четырёхзначных чисел кратных 3?

Var i,x:integer;
begin
for i:=1000 to 9999 do
if i mod 3 = 0 then inc(x);
end.

Вроде бы всё. 

Var k,i:integer;
Begin
k:=0;
For i := 1000 to 9999 do 
If i mod 3 = 0 then
k:=k+1;
Write(k);
end.