write('please provide me with n ');
read(n);

sum:=0;
i:=1;
while(i<=n) do begin
sum:=sum+i;
i:=i+1;
end;

write('the sum of i from 1 to n is ');
write(sum);
end.