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