zadach190.PAS

{* Задача 190 *}

Unit ZADACH190;
Interface
Implementation
Begin
 writeln('В первый день тренировок спортсмен пробежал 1 км. Каждый следущий день он пробегал расстояние на 10% более, чем в предыдущий. Сколко вскго км пробежит за n дней?');
End.

Program pas13558;

Uses zadach190.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  dist : real;
  n    : integer;
  i    : integer;
Begin
  dist := 1;
  write('n=');
  read(n);
  For i := 1 To n - 1 Do {* Увеличиваем i от 1 до n с шагом 1 *}
    dist := dist * 1.1;
  writeln(dist : 1 : 2);
End.