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

program zz1;

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

begin

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

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

begin

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

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

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

end;

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

end.