В стек по очереди записываются цифры 2006

uses Containers; //IntStack?
Var
   Stack: IntStack;
   i,n,r: integer;
 
begin
  Stack:= IntStack.Create;
  For i:=1 to 4 do begin Read(n); Stack.Push(n); end;
  N:=1; R:=0;
  For i:=1 to 4 do begin R:= R + Stack.Pop * N; N:= N * 10; end;
  Writeln(R);
end.

Program Stak;
             uses Crt;
             type
                 Tptr = ^TElem;
                 TElem = record
                           Inf : Real;
                           Link : TPtr;
                 end;
             var
                    Top : TPtr;
                    top1: TPtr;
                    Value : Real;
                    i : Byte;
            procedure Push (Val : Real);
              var
                    P : TPtr;
              begin
                      New (P);
                      P^.Inf := Val;
                      P^.Link := Top;
                       Top := P
              end;
            procedure Pop (var Val : Real);
             var
                   P:TPtr;
             begin
                      Val:=Top^.Inf;
                      P:=Top;
                      Top:=P^.Link;
                    Dispose ( P );
            end;
             procedure Push1 (Val : Real);
              var
                    P : TPtr;
              begin
                      New (P);
                      P^.Inf := Val;
                      P^.Link := Top1;
                       Top1 := P
              end;
            procedure Pop1 (var Val : Real);
             var
                   P:TPtr;
             begin
                      Val:=Top1^.Inf;
                      P:=Top1;
                      Top1:=P^.Link;
                    Dispose ( P );
            end;
           begin
                  ClrScr;
                  Top:=nil;
                  for i:= 1 to 10 do   Push(i);
                  while Top <> nil do
           begin
                  Pop (Value);
                   Push1(Value);
                 // writeln('Value = ', Value : 5: 2)
            end;
            while Top1 <> nil do
           begin
                  Pop1(Value);
                   //Push1(Value);
                  writeln('Value = ', Value : 5: 2)
            end;
end.