Ввести с клавиатуры 10 чисел и найти сумму чисел, кратных трём (Питон)

(телефон) поверчу волшебный круг,- и меня услышит друг.  (стол) под крышей-четыре ножки, над крышей-суп да ложки. хоть по размеру и мала, информацию хранит она. знаем все устройство это  )

x на первом

у на втором

х+2=у

х+22=3у

отнимаем первое от второго

20=2у

у=10

х=у-2=8

var a: array [byte,byte] of real; i,j,n,m: byte; s: real; d,p: word;

beginwrite('введите количество строк n = '); readln(n); write('введите количество строк m = '); readln(m); for i: =1 to n do for j: =1 to m do readln(a[i,j]);

s: =0; d: =0; p: =0; for i: =1 to m do beginfor j: =1 to n do s: =s+a[j,i]; for j: =1 to n doif a[j,i]< (s/n) then inc(d); writeln('количество элементов в столбце ',i,' прямоугольной вещественной матрицы, меньших среднего арифметического d = ',d,' среднее арифметическое = ',(s/n): 0: 4); p: =p+d; d: =0; s: =0; end; writeln('общее количество элементов меньших элементов в столбцах = ',p); writeln('матрица'); for i: =1 to n do beginfor j: =1 to m do write(a[i,j],' '); writeln; end; end.

1. съесть ржаного пирожка.2. съесть лесного яблока.3.съесть простого киселика с молоком.