Program jhg;
Const maxn=20;
Type Pupil=Record
surname:String;
name:String;
mark:String;
End;
List=Array [1..maxn] Of Pupil;
TArr=Array [1..maxn] Of String;
Var A: List;
b:TArr;
n,k:Byte;
Procedure Init(Var x: List; Var k:Byte);
Var f: Text;
Begin
Assign(f, 'c:\work\Input.txt');
ReSet(f);
k:=0;
While Not Eof(f) Do Begin
Inc(k);
With X[k] Do Begin
Readln(f,surname);
Readln(f,name);
Readln(f,mark);
End;
End;
Close(f);
End;
Procedure Solve(Var X:List; n:Byte;
Var y:TArr; Var k:Byte);
Var i: Byte;
f: Text;
Begin
k:=0;
For i:=1 To n Do
With X[i] Do
If (mark[1]>mark[3]) Or (mark[3]>mark[5])
Then Begin
Inc(k); y[k]:=surname+' '+name[1]+'.';
End;
End;
Procedure Sort (Var x: TArr; n:Byte);
Var i,j:Byte;
m:String;
Begin
For j:=1 To n-1 Do
For i:=n DownTo j+1 Do
If X[i] m:=X[i];
X[i]:=X[i-1];
X[i-1]:=m;
End;
End;
Procedure Print(X: TArr; n:Byte);
Var i:Integer;
f:Text;
Begin
Assign(f,'c:\work\Output.txt');
ReWrite(f);
Writeln(f,'yspevaemost ponizilas:');
For i:=1 To n Do Writeln(f,X[i]);
Close(f);
End;
Begin
Init(A,n);
Solve(A,n,b,k);
Sort(b,k);
Print(b,k);
End.