program prim9; var x,s:real; i:integer; a:array[1..4]of real; function ct(y,z,t:real):real; begin ct:=z*exp(t*ln(y)); end; begin readln(x); for i:=0 to 4 do begin write('a='); readln(a); end; for i:=0 to 4 do s:=s+ct(x,a,i); writeln('s=',s:10:2); end. Так будет? Или...?