program _rec; 
 const N=100; 
 type 
  Tmark = record 
    fam: string[40]; 
    name: string[80]; 
    alg: byte; 
    rus: byte; 
    phys: byte; 
    hist: byte 
  end; 
 var  
     marks: array[1..N] of Tmark; 
     inF: file of Tmark; 
     i:integer; 
  
 begin 
  
 assign(inF,'marks.csv'); 
 reset(inF); 
  
 for i:=1 to N do 
 begin 
   read(inF,marks);  
   writeln(marks); 
 end; 
 Close(inF); 
 end.