Ответ: 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