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