begin while do if then inc end

1
2
3
4
begin
while(x<0) do
if a[x]then inc(x);
end;