ORCA/C is made in Pascal. Pascal for ever. Les piles en Pascal.

type
  Element=integer;
  PILE=^Elt;
  Elt=record
    Val:Element;
    Lien:PILE;
  end;

{*****************************************************}  
  
procedure pilevide(var P:PILE);
begin
  P:=nil;
end;

{*****************************************************}  

function estvide(P:PILE):boolean;
begin
  estvide:=(P=nil);
end;

{*****************************************************}  

procedure empiler(var P:PILE; x:Element);

var
  E:PILE;
begin
  new(E);
  E^.Val:=x;
  E^.Lien:=P;
  P:=E;
end;

{*****************************************************}  

procedure depiler(var P:PILE);
begin
  if estvide(P) then
    writeln('erreur pile vide');
  else
    P:=P^.Lien
end;

{*****************************************************}  

function sommet(P:PILE):Element;
begin
  if estvide(P) then
    writeln('erreur pile vide')
  else
    somment:=P^.Val;
end;