Const N=20;
var a:array[1...N] of integer;
s,i:integer;
begin
for i:=1 to N do begin
write ('A='); read (a[i]);
end;
s:=0;
for i:=1 to N do begin
if a>0 then begin
s:=s+a;
write (i);
end;
end;
write (s);
end.
pow(a,b) - возведение a в степень b
pow(m,1.0/3)
А какой параграф? если 15 или 14 то я не знаю
................................................