var n, i, sum: integer;

begin

   sum:=0;

   i:=1;

   repeat

       write('Введите ', i, '-e число: ');

       readln(n);

       i += 1;

       if n mod 3 = 0 then

           sum += n;

   until i > 7;

   writeln('Сумма кратных 3-м: ', sum);

end.