Ребятушки, пишите те, кто реально может помочь. Очень прошу)))

это ТурбоПаскаль

Ответы:

var i,kol,sum:longint,

l:array[1..15] of longint,

begin

for i:=1 to 15 do

begin

read(m[i]),

if m[i] mod 3 = 0 then

begin

inc(kol),

sum:=sum+m[i],

end,

end,

writeln(kol, ,sum),

for i:=1 to 15 do

write(m[i], ),

end.