Заполнить список 15 случайными целыми числами из [-20; 20]. Найти среднее арифметическое чисел этого списка, кратных 3. Имена переменных: x, y, z. Написать программу.

p. s. на языке Python, информатика 9 класс​

17; -17; 14;-14;11;-11; Mem reduct

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.

const

  a: array[1..6]of longint=(7,4,10,6,5,3);

var

  i: longint;

begin

for i: =1 to 6 do  write(9.8*a[i]*1200,' ');

writeln;

end.