Задание по информатике

Решите задание по информатике на языке паскаль. Пожалуйста напишите не только тело, а всю программу

По дате

По рейтингу

matematika_ru

Мудрец

10мес

1234567891011121314151617181920212223

 var I,N: integer; 
    S,X: real; 
begin 
Readln(X); 
Readln(N); 
S:=1; 
For I:=1 to N do S:=S+1/I*X; 
Writeln(S) 
end.


var I,N: integer; 
    S,X: real; 
begin 
Readln(X); 
Readln(N); 
S:=0; 
I:=1; 
while I<N do begin I:=I+1; 
                   S:=S+I*X 
               end; 
Writeln(S) 
end.