Написать алгоритм нахождение суммы от 1 до 5 с помощью цикла

Question

Написать алгоритм нахождение суммы от 1 до 5 с помощью цикла

Answer 1

Var a,i:integer;
begin
a:=0;
for i:1 to 5 do begin
a:=a+i;
end;
write(a);
end.