Сумирование чисел[pascal;delphi]

[HouK]

Есть задание. Дана последовательность из N челых чисел. Нада сложить те из них, которые кратны 3(число кратно 3 если сумма цифр кратна 3)
Но есть загвозда немогу написать код под такой алгоритм примерно

Алгоритм осуществляеться через консоль.

Вывод (введите последовательность из N челых чисел);
цикл(я думаю что для этого задания лучше юзать repeat)
Вводн(n-натур число)
Вывод(чтобы продолжить ввод чисел нажмите 1, чтобы прекратить
нажмите 2)
Ввод(num - 1 Да 2 Нет)
Case num of
1: Тут нада сделать вывод первого введеного n числа, и к n подписать префикс n1...nx в зависимости от того сколько юзер счел нужным ввести чисел(для этого думаю юзать цикл for)
вот дальше пока что у меня нету идей как идти.
utnil num=2(думаю для выхода будет достаточно.

Теперь используемые типы данных
n1.....n50,num,summN(подразумеваеть ся N кратных 3),:integer


Вот такое придумал, а вот код чет пока что не идет, как будут наработки буду выкладывать, но на деюсь вы тоже чтонить с кодом посоветуете или с данным алгоритмом.

[ОДИНОЧЕСТВО В СЕТИ]

type vector = array[1..100] of integer;
var
  a:vector;
  i,n:Integer;
  sum:LongInt;
  function SofD(x:integer):Integer;
  var s:Integer;
  begin
    s:=0;
  while x<>0 do
    begin
      s:=s+(x mod 10);
      x:=x div 10
    end;
    SofD:=s;
  end;
begin
  sum:=0;
  Writeln('input n');
  Readln(n);
  for i:=1 to n do
    Readln(a[i]);
  Writeln('------ARRAY-------');
  for i:=1 to n do
    write(a[i]:4);
  Writeln;
  Writeln('------------------');
  for i:=1 to n do
    if SofD(a[i]) mod 3 = 0 then sum:=sum+a[i];
      Writeln('cyMMa=',sum:9);
  Readln;
end.

а вот это вот

Вывод (введите последовательность из N челых чисел);
цикл(я думаю что для этого задания лучше юзать repeat)
Вводн(n-натур число)
Вывод(чтобы продолжить ввод чисел нажмите 1, чтобы прекратить
нажмите 2)
Ввод(num - 1 Да 2 Нет)
Case num of

-лишняя головная боль и если и делать то как-то по-другому