-


- 5


(, , , nil).

- ,

1,75

35,7 1,75

-6,94 35,7 1,75

: . . , . .

 

28

program stack; ( - }

type s^StackComp; StackComp=record

b:real;

p;s;

end;

var a:s; k:real;

procedure Dobavl(k:real); ( }

var j : s ;

begin new(j); ( }

j^.b:=k; ( }

j^.p;=a; ( } a:=j ( )

end;

procedure Vzjat(var k:real); ( )

var j :s;

begin j:=;

k:j^b; (k- }

a:=j^p; ( )

dispose(j) ( )

end;

begin ( )

a:=nil; Dobavl(1.75) ;

Dobavl(35.7);

Dobavl(-6.94); ( : -6.94, 35.7, 1.75)

Vzjat(k); writeln(k); ( )

Vzjat(k); writeln(k); ( )

Vzjat(k); writeln(k) ( )

end. ( : -6.94 35.7 1.75}