Тренировочный цикл васи состоит из n дней.в первый день он пробегает 1 км,а в каждый последующий-на 1 км больше,чем в предыдущий.сколько км пробежал вася за тренировочный цикл? пример ввод: 10 вывод: 55 использовать цикл while.

В общем, на программу с while:
Program solid;
var n,i,s:real;
begin
read(n);
writeln('кол-во дней=',n);
i:=1;
s:=0;
while i<=n do
begin
i:=i+1;
s:=s+1;
end;
writeln('Вася пробежит ',s,' км за тренировочный цикл');
end.