Simple infinite loop with numbers.

	program forever;
	var
		i: integer;
	begin
	i := 0;
	while true do
		begin
		writeln('xxxxx ', i);
		i := i + 10;
		end;
	end.

Sample output

>xxxxx 0
>xxxxx 10
>xxxxx 20
>xxxxx 30
>xxxxx 40
>xxxxx 50
>xxxxx 60
>xxxxx 70
>...
>(negative numbers)
>...
>(positive numbers)
>...