В Паскаль ABC
Бегун в первый день пробежал 5 км, каждый следующий день он пробегал на 10% больше предыдущего. Определить сколько он пробежит на седьмой день и за всю неделю в целом.

Var   A,S:real;   i:integer;BeginA:=5;S:=A;For i:= 1 to 6 do    Begin    A:=A*1.1;    S:=S+A;    End;WriteLn(A:0:3,' ',S:0:3)End.