Найти среднее арифметическое всех трехзачных чисел кратных 6

Var i, sum, k : longint ;
Begin
For i:= 100 to 999 do
If i mod 6 = 0 then
begin
sum:= sum +i ;
k:= k +1 ;
End;
Writeln ( sum/k ) ;
End.