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

Можно так:
var i: integer;
begin
for i:=10 to 99 do
    if i mod 3=0 then write(i:3)
end.

Или вот так:
var i: integer;
begin
i:=3;while i<100 do
  begin
  write(i:3);
  i:=i+3
  end
end.