Решение смотри во вложении.
<span>В 6 заливаем литр. Потом отливаем из 6 два литра в двухлитровую. В 6 литровой остается 4 литра. Затем из 2 литровой переливаем в 5 литровую.</span>
Первичный был:
D:\Документы\Фото\2011\Весна
Дальше поднялся на три уровня вверх и оказался в D:\Документы дальше спустился в D:\Документы\Экзамены\Информатика. Вот полный путь
Var A,S:real;
n:integer;
Begin
Write('n = ');
Read(n);
a:=10;
For n:= 1 to n do
Begin
a:=a*1.1;
S:=S+a
End;
WriteLn(S)
End.