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

var
    i, x: integer;        // объявляем переменные целочисленного типа.
    y, sum : real;      // объявляем переменные вещественного типа.
begin
    y := 10;            // пробег спортсмена в 1-ый денек.
    while i lt; 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.