Вопрос по информатике:

Паскаль: Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы

var     i, x: integer;        // объявляем переменные целочисленного типа.    y, sum : real;      // объявляем переменные вещественного типа.begin    y := 10;            // пробег спортсмена в первый день.    while i < 6 do    // в цикле определяем пробег спортсмена со 2-го по 7-й день.       begin          y := y + (y / 100 * 10);     // пробег спортсмена за i-й день.          sum := sum + y;               // считаем сумму километров.          i := i + 1;                        // счетчик дней недели.       end;    write (\'В сумме за 7 дней спортсмен пробежал: \',round(sum + 10,2), \' км.\'); //вывод на экран.end.