Considere o trecho de código acima, escrito no Pascal do...

push(no: Ptr_No) abstract;

constructor Lista.Create;

type Pilha:class(Lista)

push(no: Ptr_No);

virtual procedure push(no: Ptr_No);

constructor Lista.Create;

type Pilha extends Lista

procedure push(Ptr_No no);

procedure push(no: Ptr_No); virtual;

constructor Lista;

type Pilha = class from Lista

procedure push(no: Ptr_No); abstract;

procedure push(no: Ptr_No); virtual; abstract;

constructor Lista.Create;

type Pilha = class(Lista)

procedure push(no: Ptr_No); reintroduce;