Найти сумму двузначных чисел, кратным 3

Если сумма цифр делится на 3,то само число тоже делится на 3

Var i,s:integer;
begin
s:=0;
for i:=10 to 99 do
if i mod 3=0 then s:=s+i;
writeln(s);
end.