begin 
integer j,k;
array a[0:3];
k := 2;
for j := 1 step 1 until k
begin 
i := 0;
end;
end