Составить программу решения задачи: Спортсмен в первый день пробегает 5 километров, а в каждый следующий день на 10 километров больше, чем в предыдущий. Сколько километров он пробежит в 10-й день? Найти общую сумму пробега за 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.