{ ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  º         .pas - description                                 º
  º                                                            º
  ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
  º Author   -                                                 º
  º Date     -                                                 º
  ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
  º Input    -                                                 º
  º Output   -                                                 º
  ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ }

program problem2;

uses crt;
CONST MAX = 5;
      MAXINT = 9;

var fhData, fhOut : text;
    iNumber, iBig : array [1..MAX] of string;
    i, j : integer;

begin
clrscr;

assign(fhData, 'Data2.txt');
reset (fhData);


while(not(eof(fhData))) do
begin
for i := 1 to MAX do
readln(fhData, iNumber[i]);
end;

close(fhData);


for i := 1 to MAX do
begin
iBig[i] := iNumber[i,1];

    for j := 1 to MAXINT do
    begin
         if iBig[i] < iNumber[i,j+1] then
         begin
            iBig[i] := iNumber[i,j+1];
         end
    end;
end;
assign(fhOut, 'Out2.txt');
rewrite(fhOut);

for i := 1 to MAX do
writeln(fhOut, iBig[i]);

close(fhOut);
readkey;
end.