program pr7; uses zv7; var PZ1,PZ2,PZ3:Pzvire; PP1,PP2:Ppes; PK1,PK2:Pkocka; begin writeln(F,'vyst7'); PZ1:=new(pzvire,init('Amina', samice, 3, 20000)); PZ2:=new(pzvire,init('Rek',samec, 4, 3000)); PP1:=new(ppes,init('Azor',samec, 1, 255, 26)); PP2:=new(ppes,init('Rita',samice, 7, 5000, 23)); PK1:=new(pkocka,init('Mica',samice, 1, 200)); PK2:=new(pkocka,init('Zrzoun',samec,2,400)); PZ1^.kdojsem; PZ2^.kdojsem; PP1^.kdojsem; PP2^.kdojsem; PK1^.Kdojsem; writeln(F,'-------------------------'); PK2:= PK1; PZ1:=PP1; PZ2:=PK2; PK1^.Kdojsem; PK2^.Kdojsem; PZ1^.Kdojsem; PZ2^.Kdojsem; writeln(F,'=============================='); close(F); end.