program lider;
uses crt;
var i,nl,nl2,nl3:integer;
    t,tl,tl2,tl3:real;
begin
  clrscr;
  i:=0;nl:=0;nl2:=0;nl3:=0;tl:=0;tl2:=0;tl3:=0;
  repeat
  begin
    i:=i+1;
    write(‘Введите результат( в секундах) участника
    номер’,i:2,' =>   ');
    repeat
      readln(t);
      if t<=0  then
      begin
       writeln(‘Неверные данные. Введите заново.’);
       write(‘Результат участника номер’,i:2,' =>');
      end;
    until t>0 ;
    if i=1 then
    begin
       writeln(‘Участник номер’,1,’стал лидером’);
       tl:=t;nl:=i;
    end
    else
    if t< tl then
    begin
       writeln(‘Участник номер’,i,’стал лидером’);
       tl3:=tl2;nl3:=nl2;
       tl2:=tl;nl2:=nl;
       tl:=t;nl:=i;
    end
    else
    if (i>1)and(t= tl) then
    begin
       writeln(‘Участник номер’,i,’повторил результат
       лидера’);
       tl3:=tl2;nl3:=nl2;
       tl2:=t;nl2:=i;
    end
    else
     if t> tl then
     begin
     writeln(‘Участник номер’,i,’результат  хуже, чем у
     лидера’);
     if ((t<tl2) or (tl2=0))  then
       begin
         tl2:=t;nl2:=i
       end
     else
     if((t<tl3) or (tl3=0))  then
       begin
          tl3:=t;nl3:=i
       end
     else
       end;
   end;
until t=9999;
writeln('------------------------------------------------------');
writeln(‘Тройка лидеров забега:1место=>участник номер’,nl:2,' с результатом',tl:5:3);
readln;
if tl2<>0 then
begin
   writeln(‘                    2место=>участник
   номер’,nl2:2,' с результатом',tl2:5:3);
   readln;
end;
if tl3<>0 then
begin
   writeln(‘                    3место=> участник
   номер’,nl3:3,' с результатом',tl3:5:3);
   readln;
end else
end.