Информатмка ооочень надо
любое задание ​

1)
var n,i,p:longint;a:array[1..100]of longint;
begin
read(n);p:=1;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i] mod 3=0 then p:=p*a[i];
writeln(p);
end.
2)
var n,i,s,p:longint;a:array[1..100]of longint;
begin
read(n);
p:=1;s:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
for i:=1 to n do
if a[i]<0 then p:=p*a[i];
if p>s then writeln('proizvedenie')
else if p<s then writeln('summa')
else writeln('ravni'); 
end.
3)
var n,f,i,o:longint;a:array[1..100]of longint;
begin
read(n);f:=0;
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do begin
if a[i]<0 then f:=f+1;
if f=2 then begin o:=a[i];break;end;
end;
writeln(o);
end.

Мир вокруг нас!Управлять жизнью, пространством, обстоятельствами вокруг, созидать, сотворяя из ничего, превозмогать и побеждать любую силу, направленную против правды, совести и света, создавать новые жизни – все это наши личные божественные качества. Мы можем умирать, преисполненными самым искренним счастьем, если этим кому-нибудь жизнь. Мы можем отказаться от смерти, излечившись от рака или страшного ранения только любовью и жаждой жизни. Все это могущество внутри у нас с самого рождения. Личная вселенная – внутренний мир, созвездия чувств, открытий и познаний и в твоей душе. Личная вселенная – мир, который ты создал вокруг себя, подобно Творцу. Твоей вселенной, и внутренней и внешней, должны восхищаться, так же, как мы восхищаемся соседними галактиками, глядя в телескопы.