Program conta(input,output);
Type
	vet=array[1..100] of integer;
Var v:vet;
Var g,i:integer;

Procedure assegna;
Begin
	V[1]:=35;
	V[2]:=40;
	V[3]:=85;
	V[4]:=0;
	V[5]:=76;
end;

Procedure conta;
var y,h:integer;
Begin
	h:=0;
	For y:=1 to 100 do
		Begin
			h:=h+1;
			If V[y]<>0 then g:=h;
		End;
End;

Procedure scambia(var a,b:integer);
Var alessio:integer;
Begin
	alessio:=a;
	a:=b;
	B:=alessio;
End;

Procedure Ordina (Var v:vet);
var y,j:integer;

Begin
	For y:=1 to g-1 do
		For j:=y+1 to g do
			If V[y]>v[j] then scambia(v[y],v[j]);
end;

Procedure visua;
Var y:integer;
Begin
	Writeln('i numeri in ordine sono:');
	For y:=1 to g do
		Begin
			writeln(V[y]);
		End;
End;

Begin
	assegna;
	conta;
	ordina(v);
	visua;
end.