const
x = 5;
var
a: array[1..x] of integer;
i, sum: integer;
begin
writeln('Все числа:');
for i := 1 to x do
begin
a[i] := random(-99, 99);
write(a[i], ' ');
if (a[i] mod 3 = 0) then
sum += a[i];
end;
writeln('Сумма чисел, кратных трём: ', sum);
end.
