Виводяться 7 цілих чисел з клавіатури. знайти суму чисел кратних 3.выводятся 7 целых чисел с клавиатуры. найти сумму чисел кратных 3.написать программный код​

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.