--este programa presenta la utilizacion de varios procedimientos que se llaman
--asi como la utilizacion de diferentes stack frames

package llamadas is

	tecla:character;
	
	procedure n4 is
	i:integer;
	begin
		i:=4;
		write(i);
	end;

	procedure n3 is
	i:integer;
	begin
		i:=3;
		write(i);
		n4;
		write(i);
	end;
	
	procedure n2 is
	i:integer;
	begin
		i:=2;
		write(i);
		n3;
		write(i);
	end;

	procedure n1 is
	i:integer;
	begin
		i:=1;
		write(i);
		n2;
		write(i);
	end;
	
begin
	n1;
	read(tecla);
end;