Write1n(f4

————————————- ‘);

For i:=1 to n do begin write1n(f4,’ ,,bb[i].Hw:6:1/’ ,/bbCi].Tw:6:1/,I\bbCi].

Bf:6:1,’r, bb [i].Tf:6:1 , ‘ ,,tbCi].A^:6:1/’ ,,tb[i3.DE1:6:1/’ ‘,bb[i].DE11:6:1,’

,fbbCi].F:6:1/’ ‘); end;

Write1n(f4,

————————————- ‘);



.