Помогите решить задачу с циклами! Опции

[Катерина]

Текст задачи: Найти сумму и количество положительных нечётных чисел, делящихся без остатка на 3 и меньших 100. Вывести эти числа на экран.

Плиз!!!!!!!!

[klem4]

i := 1; // ну или i := 3;
while(i<100) do begin
   if (i mod 3 = 0) then writeln(i);
   inc(i,2);
end;

[volvo]

i := 1; 
count := 0; sum := 0;
while(i<100) do begin
  if (i mod 3 = 0) then begin 
    writeln(i);
    inc(count); inc(sum, i); { <-- Количество и сумма считаются здесь }
  end;
  inc(i,2);
end;