Var i,n:integer; 
s,k:real;
begin 
writeln('Введите количество дней: '); 
readln(n); 
k:=10;
i:=1;
s:=0;
while i<=n do 
begin
s:=s+k;
k:=k*1.1;
i:=i+1;
end;
writeln('Спортсмен пробежал: ',s:5:2); 
readln; 
end.



var i:integer; 
s,k,a,b,sum,p:real;
begin 
writeln('Стипендия студента: '); 
readln(a); 
writeln('Расходы студента: '); 
readln(b); 
k:=b;
i:=1;
s:=0;
while i<=10 do 
begin
s:=s+k;
k:=k*1.03;
i:=i+1;
end;
sum:=10*a;
p:=s-sum;
writeln('Нужно попросить у родителей: ',p:5:2); 
readln; 
end.