Найти сумму 10 натуральных чисел (использовать цикл While).

program zz1;

var a, b, i:integer; / / задаем переменные целого типа

begin

i:=1; / / задаем начальное значение для параметра цикла

while i < = 10 do / / организуем цикл, пока параметр цикла не достигнет десяти

begin

read (a); / / вводим число с клавиатуры

b:=b + a; / / добавляем введенное число к сумме

i:=i + 1; / / увеличиваем параметр цикла на единицу

end;

write (' сумма десяти натуральных чисел = ', b); / / выводим ответ

end.