Составить программу решения задачи: Спортсмен в первый день пробегает 5 километров, а в каждый следующий день на 10 километров

var   i, x, y : integer;                   // объявляем переменные целочисленного типа.begin   x := 5;                              // пробег спортсмена в первый день.   for i := 2 to 10 do              // в цикле считаем пробег со 2-го по 10-й день.      begin         x := x + 10;               // увеличиваем пробег за каждый день на 10 км.         if i = 10 then writeln(\'За 10-й день спортсмен пробежал: \', x,\' км.\');   // пробег за 10-й день.         y := y + x;                // считаем общую сумму пробега за 10 дней.        end;    writeln(\'Сумма пробега спортсмена за 10 дней составляет: \', y + 5,\' км.\');// вывод ответа.end.