Program Moy_Rang;
Const n=30;
Var Nom : Array [1..n, 1..2] of String [50];
Note : Array [1..n, 1..4] of Real;
j, i, a, b : Integer;
Begin
For i:=1 To n Do
Begin
Writeln ('Elèves n° ', i);
Writeln ('Nom : ');
Readln (nom[i,1]);
Writeln ('Prénom : ');
Readln (nom[i,2]);
For j:=1 To 2 Do
Repeat
Writeln ('Note ', j, ' : ');
Readln (note[i,j]);
Until (note[i,j]>=0) and (note[i,j]<=20);
note[i,3] := (note[i,1]+note[i,2]*2)/3;
End;
For i:=1 To n Do
Begin
note[i,4]:=1;
For j:=1 To n Do
If note[i,3]<note[j,3] Then note[i,4]:=note[i,4]+1;
End;
Writeln ('Nom', 'Prénom':15, 'Note 1':10, 'Note 2':10, 'Moyens':10, 'Rangs':10);
For i:=1 To n Do Begin
a:=Length (nom[i,1]);
b:=Length (nom[i,2]);
Writeln (nom[i,1],nom[i,2]:(12-a+b),note[i,1]:(15-b):2,note[i,2]:10:2,note[i,3]:10:2,trunc(note[i,4]):9);
End;
End.