найти сумму натуральных чисел от 5 до 10

program summa_naturalnych_chisel;

var sum: integer;

begin

writeln ('Находим сумму натуральных чисел от пяти до десяти');

for i : = 5 to 10 do sum : = sum + i;

wrteln ('Нашли сумму натуральных чисел);

writeln ('Сумма натуральных чисел от пяти до десяти равна', sum);

end.