Сложить числа ** отрезке от 10 до z

Question

Сложить числа на отрезке от 10 до z

Answer 1

Program primer;
Var
i,z,a:integer;
begin
read (z);
for i:=10 to z do
    a:=a+i;
writeln(a);
end.