program main ( input, output );

        var a, b,c: integer;
begin

	a := 1;
	(* test *)
	for c := 0 to 10 do begin
		for a:= 10 downto 0 do b := a - c
	end
end.