uses crt;

type
Student = record
name:string[21];
inic:string[4];
end;

var
dann: array [1..10] of Student;
f:text;
bin:file of Student;
i:integer;
c:char;
s:string;

BEGIN

    assign(f,'input.txt');
    reset (f);
    for i:= 1 to 10 do
    begin
        s := '';
        repeat
            read(f,c);
            s := s + c;
        until c = ' ';

        dann[i].name := s;
        s:='';

        repeat
           read (f,c);
        until c <> ' ';

        dann[i].inic := dann[i].inic + c;
        readln(f,s);
        dann[i].inic := dann[i].inic + s;
    end;

    close (f);

    for i := 1 to 10 do
    begin
        writeln (dann[i].name,' ',dann[i].inic);
    end;




END.