Составте программу для нахождения среднего арифметического двухзначных чисел, кратных 3. (прошу, чтобы было понятно)

спасибо

Program n1;var sum,k,i: integer;beginsum:=0;k:=0;for i:=10 to 99 do if i mod 3=0 then begink:=k+1;sum:=sum+i;end;write(sum/k);end.