Помогите записать ** алгоритмическом языке сумму чисел от 1 до 10

Question

Помогите записать на алгоритмическом языке сумму чисел от 1 до 10

Answer 1

Var i,summ:integer;Begin
for i:=1 to 10 dowrite (' ',i,' ');summ:=summ+i;writeln('сумма чисел от 1 до 10 равна: ',summ);end.