Написать программу с поддержкою цикла while которая производит суммирование любых десяти

Очень благодарен) А то с этими циклами непрерывно путаешься.

Да что тут путаться?) While () это пока производится то условие которое в скобках, если оно не выполняется то цикл завершаетсяfor i:=1 to 10 do ... это цикл со счётчиком, то есть в данном случае цикл выполнится 10раз, а если быть точнее то до момента как i станет одинакова 10, каждый раз i увеличивается на 1, но ты так же можешь i убавлять либо наращивать в самом цикле, например for i:=2 to 10 do i:=i-1; этот цикл будет бесконечным т.к. i никогда не станет 10 поэтому-что каждый раз как i

прирастит на 1, мы убавляем на 1.

repeat .... until(); здесь мы словом repeat показываем начало кода который будет зациклен, а until() мы показываем где будет конец кода и в скобочках пишем условие, выполнив которое цикл завершится, например repeat i:=i+1; until(i=5);в данном случае цикл проиграется 5раз, если учесть что вначале i была одинакова 0