program te;
var I : InTEGER;
	a_B, z: ReAl;
	b: array [0..2] of integer;
	zzz : boolean;

function tt(a: integer; n: real): integer; forward;
function aa(): integer; forward;
function tt(a: integer; n: real): integer;
	var xpto: integer;	
	begin
		while (xpto > 0) do 
			begin
				writeln(xpto);
				xpto := xpto -1;
			end;
	end;
function aa(): integer; 
	var b: integer;
	begin
			aa := 12;
	end;

	
begin

if (1+1) then
	i := 1;

for i := 11 downto 0 do
    writeln(paramcount);
end.