Lặp với số lần chưa biết trước

J:=2;k:=3;
For i:=1to5do
Begin j:=j+1;k:=k+j;
End.