Подсчитать количество чисел, сумма которых меньше 10

Здравствуйте. В общем то задача простецкая.В последовательности подсчитать количество чисел, сумма которых меньше 10.Не могу вспомнить, как решить данную задачу. Сейчас программирую только с массивами. А эту необходимо решить "по простому", а у меня как отрезало, голова другим забита...В общем, надеюсь на вашу помощь
2 ответа

var
  n,a,s,k,m,i: integer;
begin
  write('Сколько чисел в последовательности? ');
  readln(n);
  m:=0;
  for i:=1 to n do
  begin
    s:=0;
    write('Введите ',i,'-е число ');
    readln(a);
    while a>0 do
    begin
      k:=a mod 10;
      s:=s+k;
      a:=a div 10;
    end;
    if s<10 then inc(m);
  end;
  writeln('В последовательности ',m,' чисел c cуммой цифр <10.');
  readln;
end.


мда... аж стыдно все базовые приёмы... ermolay, спасибо Вам