Помогите с задачей Паскаль

[Baby33]

Помогите решить еще одну задачу!!!!

[alex_fcsm]

var sum,x:real;
    i:integer;

function fun(n:integer):real;
var j:integer;
    res:real;
begin
res:=1;
for j:=1 to n do
 res:=res*x;
fun:=res;
end;

begin
readln(x);
sum:=0;
for i:=1 to 10 do
if i<=4 then  sum:=sum+fun(2*i+1)
   else sum:=sum+fun(i);
writeln(sum:10:4);
end.

[Baby33]

Огромнейшее спасибо!!!!!!!!!!!!!!!

[advokat807]

Помогите, пожалуйста.
с procedure или function

[Grag]

Сообщение от advokat807

Помогите, пожалуйста.

Не вопрос, стучись в аську или на мыло, договоримся!!!
Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61