program LOOPS2(input, output); var i, limit: integer; begin writeln('Please enter a limit.'); readln(limit); while i <= limit do begin write(i, ' '); i := i + 1; end; end.