посчитайте с заданиями 20 поинтов

1) 16

2) 32

3)

program abc;

var a : integer;

begin

readln(a);

if a<0 then writeln(a*a) else writeln(a*a*a);

end.

4)

program abc;

var a : array[1. . 15] of integer;

i,s : integer;

begin

s:=0;

for i:=1 to 15 do

begin

readln(a[i]);

if i mod 2 =0 then s:=s+a[i];

end;

writeln(s);

end.