Помогите пожалуйста !!Составьте программу суммирования 10 последовательных натуральных чисел начиная с z

Program n1;var z,i,sum: integer;beginreadln(z);sum:=0;for i:=1 to 10 dobeginsum:=sum+z;z:=z+1;end;writeln(sum);end.