Program Zaplyv;
Uses crt;

var i: integer;
    max: real;
    a:array[1..1000] of integer;

Begin clrscr;
      max:=0;
      for i:=1 to 8 do
      begin
           write('Время участника ', i,' = ');
           readln(a[i]);
      end;
      
       for i:=1 to 8 do
       begin
       if a[i] > max then
       max:=a[i];
       end;
       
writeln;
write('Чучший результат заплыва - ', max);
End.