напишите программу, которая в последовательности натуральных чисел определяет сумму трехзначных чисел кратных 6. программа получает на вход натуральные числа количество введенных чисел неизвестно последовательность чисел заканчивается числом 0 ( 0 признак окончания ввода не входит в последовательность) количество чисел не привышает 1000 введенные числа не привышают 30000. программа должна вывести одно число сумму трехзначных чисел кратных 6. пример программы вводные данные 120, 9, 365, 4, 0

Program kk;
         var  x: array [1..100] of  real;
         n, i: integer;
         s, p: real;
begin
         cls;
         writeln ('Введите размерность массива :');
         readln (n);
         s:=0;
         writeln ('Введите элементы массива:');
           for i:=1 to n do
                                 begin
                                             write ('x[',i,']=');
                                             readln (x[i]);
                                             s:=s+x[i];
                                 end;
         writeln ('Полученная сумма равна ', s);
end.