Computação TOP10

program exe3;
//autor: Cícero Amauri
const max = 5;
type
   pilha = record
              x: integer;
              obj :array [1..max] of string;
            end;
 procedure init(var n:pilha);
 begin
   n.x := 0;
 end;
 procedure push(var n:pilha; o: string);
 begin
   n.x := n.x + 1;
   n.obj[n.x]:= o;
 end;
 function IsEmpty ( n: pilha):boolean;
 begin
   if n.x = 0 then
   IsEmpty := true
   else
   IsEmpty := false;
 end;
 procedure pop (var n:pilha);
 begin
  writeln (n.obj[n.x]);
   n.x:= n.x - 1;
 end;
var
  p: pilha;
  i: integer;
  elem: string;
begin
  init(p);
  for i := 1 to max do
  begin
    readln (elem);
    push (p, elem);
  end;
  while not IsEmpty (p) do
  begin
    pop (p);
  end;
  writeln ('a pilha esta vazia ? ', IsEmpty(p));
end.