{
	goingup.p

	Started by Jeff Ondich 10/16/96
	Last modified 10/16/96

	This program counts as high as the sky, or thereabouts.
}
program goingup(output);

var		count : integer;

begin
	count := 1;
	while count > 0 do
		count := count + 1;
	
	writeln( 'count = ', count )
end.