Спортсмен готовясь к соревнованиям в первый день тренировок на первый день пробежал один круг на второй 2 на третий три и тд сколько кругов спортсмен пробежал за 8 дней решение в паскале

Предыдущий
вопрос Следующий
вопрос

Program Exercise;

var
totalKm, km: integer;
day: integer;
begin
totalKm := 0;

for day := 1 to 8 do
begin
km := day;
totalKm := totalKm + km;
end;

writeln('Спортсмен пробежал за 8 дней: ', totalKm, ' кругов');
end.