Народ, ! составьте алгоритм нахождения суммы всех двухзначных чисел, кратных трем, используя цикл с параметром

Var
  i:integer;
begin
  for i:=12 to 99 do
    if (i mod 3)=0 then Write(i:3)
end.

Тестовое решение:
 12 15 18 21 24 27 30 33 36 39 42 45 48 51 54 57 60 63 66 69 72 75 78 81 84 87 90 93 96 99