RosettaCodeData/Task/Stair-climbing-puzzle/Pascal/stair-climbing-puzzle.pascal

procedure stepUp;
begin
  while not step do
    stepUp;
end;