type String15=string[15];
     Student=record
     SurName:String15;
     Name:String15;
     FatherName:String15;
     end;
     Group=array [1..3] of Student;
var f:text;
    s:string;
    i:integer;
    name:string15;
    Group1:Group;

begin
Assign(f,'example.txt');
Reset(f);
i:=0;
while not eof(f) do
 begin
 readln(f,s);
 s:=s+' ';
 i:=i+1;
 Group1[i].surname:=copy(s,pos(' ',s),1);
 Delete(s,pos(' ',s),1);
 Group1[i].name:=copy(s,pos(' ',s),1);
 Delete(s,pos(' ',s),1);
 Group1[i].fathername:=copy(s,pos(' ',s),1);
 Delete(s,pos(' ',s),1);
 end;
Close(f);
for i:=1 to 3 do writeln(Group1[i].name);
end.