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

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