Выведите на экран значение суммы натуральных чисел от 1 до 10.

program zz1;

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

begin

for i:=1 to 10 do / /организуем цикл от единицы до десяти

summa:=summa+i; / /прибавляем в сумму, очередное число

write (' сумма чисел от единицы до десяти, равна - ', summa); / / выводим на экран ответ

end.