Написать программу! ) в эвм по очереди поступают результаты соревнований ,в которых участвуют n спортсменов.составьте программу,которая обеспечивает вывод на экран лучшего результата каждыйраз после ввода
результата очередного спортсмена

var n,i: integer;

      result,thebest: real;

begin

  thebest:=1;

  writeln('Введите количество спортсменов');

  readln(n);

  for i:=1 to n do begin

    writeln('Введите результат ',i,' спортсмена');

    readln(result);

    if result>thebest then thebest:=result;

    writeln('Лучший результат: ',thebest);

                         end;

end.