Помогите понять программу (Pascal) P.S. Это решение задачи (добавил во...

Question

Помогите понять программу (Pascal)

P.S. Это решение задачи (добавил во вложения)

program qq;
var i, k, m, g :integer;

begin
writeln('Введите количество цифр в последовательности (Не больше 100)');
repeat
readln(i);
until i<101;<br>writeln('Вводите числа (не превышающие 300)');
for k:= 1 to i do begin
repeat
readln(m);
until m<301;<br>if (m mod 3=0) then g:=g+m;
end;
writeln(g);
end.

---

Answer 1

var a,s :integer;
begin
s:=0
repeat(a);
writeln a<>0 do
 begin

if(a>s) and (a mod 3=0) then;
s:=s+a;
repeat(a);
end;
writeln(s);
end.    
может быть так?