Ou plus simplement :


for i:=1 to 5 do
begin
j:=i*2;

//Utiliser j

end;