EX03

Type tpilhadup = record
					vet:array[1..10] of char;
					topo1,topo2:integer;
				 end;

procedure create(var pd:tpilhadup);

function isfull(pd:tpilhadup):boolean;

function isempty(pd:tpilhadup;lado:integer):boolean;

procedure push(var pd:tpilhadup;lado:integer;elem:char);

function pop(var pd:tpilhadup;lado:integer):char;