TYPE
 Dt=Record
  Places:Byte;
  Weight:Real;
 end;
VAR
 Pas_Lag:Dt;
 f:Text;
 Med_Weight:Real;
 Pass_num,Places_num:Byte;
BEGIN
 Assign(f,'D:\bagazh');
 ReSet(f);
 Med_Weight:=0;
 Pass_num:=0;
 Places_num:=0;
 Repeat
  With Pas_Lag do
   begin
    ReadLn(f,Places);
    ReadLn(f,Weight);
    Med_Weight:=Med_Weight+Weight;
    Places_Num:=Places_Num+Places;
    if Places>2 then Pass_num:=Pass_num+1;
   end;
  ReadLn(f);
 Until EoF(f);
 Close(f);
 Writeln('The medium weight of each place is ',Med_Weight/Places_Num:5:2);
 Writeln('The number of passengers having more then one place is ',Pass_Num);
 ReadLn;
END.

3
7.5

1
4.4

4
12.2 

1
1.9

1
5.1

1
9.0