program havetodoit;
const
max=4;
mid=2;
type
moamd_type= array of integer;
softem= record
 nikodone: integer;
 nikodtwo: integer;
 nikodthree: integer;
end;
sofet_type=array of softem;
var
mar_sofet2: sofet_type;
mar1: moamd_type;
procedure details_in(var mar_sofet: sofet_type);
var
i: integer;
begin
for i:= 1 to mid do
begin
writeln ('sofet put the first nikud');
 readln (mar_sofet.nikodone);
writeln ('sofet put the second nikud');
 readln (mar_sofet.nikodtwo);
writeln ('sofet put the seconde nikud');
 readln (mar_sofet.nikodthree);
end;
end;{procedure details_in}
procedure sidor(mar_sofet: sofet_type; var mar2:moamd_type);
var
i, j: integer;
begin
for j:= 1 to max do
 for i:= 1 to mid do
 begin
  if mar_sofet.nikodone= j then
    mar2:= mar2+3;
  if mar_sofet.nikodtwo= j then
    mar2:= mar2+2;
  if mar_sofet.nikodthree= j then
    mar2:= mar2+1;
 end;
end;{procedure sidor}
function dafirst(mar2: moamd_type): integer;
var
i,place,big: integer;
begin
big:=mar2;
place:=1;
for i:= 2 to max do
 if mar2>big then
 begin
  big:= mar2;
  place:=i;
 end;
writeln ('the first place is',' ',place,' ',' and she have',' ',big, ' ','points');
dafirst:=place;
end; {function dafirst}
function dasecond(mar2: moamd_type): integer;
var
i,big,place: integer;
begin
big:= mar2;
place:=1;
for i:= 2 to max do
 if (mar2> big) and (i<> dafirst(mar2)) then
  begin
   big:= mar2;
   place:=i;
  end;
writeln ('the second place is',' ',place,' ',' and she have',' ',big, ' ','points');
dasecond:= place;
end;{function daseconde}
function dathird(mar2: moamd_type): integer;
var
i,big,place: integer;
begin
big:= mar2;
place:=1;
for i:= 2 to max do
 if (mar2> big) and (i<> dafirst(mar2)) and (i<> dasecond(mar2)) then
  begin
   big:= mar2;
   place:=i;
  end;
writeln ('the third place is',' ',place,' ',' and she have',' ',big, ' ','points');
dathird:= place;
end;{function dathird}
begin{program}
 details_in(mar_sofet2);
 sidor (mar_sofet2, mar1);
 dafirst (mar1);
 dasecond (mar1);
 dathird (mar1);
end.

	
	
	
	 

program colorado;
const
softim=10;
type
martype=array of integer;
var
a:martype;
procedure zeroarray(var a:martype);
var i:integer;
begin
for i:=1 to 50 do
a:=0;
end;
{-}
procedure getscore(var a:martype);
var num,i,j:integer;
begin
for i:=1 to softim do
begin
for j:=3 downto 1 do
begin
readln(num);
a:=a+j;
end;
end;
end;
{-}
procedure printwin(var a:martype);
var i,temp,p1,p2,p3:integer;
begin
p3:=0;
p1:=0;
p2:=0;
for i:=1 to 50 do
begin
if a>p1 then
begin
p3:=p2;
p2:=p1;
p1:=i;
end
else
if a>p2 then
begin
p3:=p2;
p2:=i;
end
else
if a>p3 then
p3:=i;
end;
writeln(p1,a);
writeln(p2,a);
writeln(p3,a);
end;
{-}
{-}
begin
zeroarray(a);
getscore(a);
printwin(a);
end.