Var i,n:integer;
s,k:real;
begin
writeln('Введите количество дней: ');
readln(n);
k:=10;
i:=1;
s:=0;
while i<=n do <br>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 <br>begin
s:=s+k;
k:=k*1.03;
i:=i+1;
end;
sum:=10*a;
p:=s-sum;
writeln('Нужно попросить у родителей: ',p:5:2);
readln;
end.