Берешь переменные и массив с типами данных real, создаешь цикл в котором каждый раз вводится значение спортсмена, и если оно лучше предыдущего, то этой переменной присваиваешь это значение, цикл должен выполняться 10 раз, т.е for i:=1 to 10 do, в конце после цикла вывод переменной которой присваивал значение!!!!
X=x-2=3-2=1
y=y+4=16+4=20
x=x+5=1+5=6
y=y-3=20-3=17
x+y=6+17=33
S := exp(ln(-sqrt(156,374) * ln(n)) * 1/3)
Var x,y:integer;
begin
read(x);//число
while(x <>0) do begin
if x mod 10 mod 2=1 then y:=y+x mod 10;
x:=x div 10;
end;
writeln(y);
<span>end.</span>
1) С:\Система
2) С:\Пользователи\Никита\Книги\Гарри Поттер и Кубок огня.pdf
3) С:\Пользователи\Никита\Фото\Истра.jpeg
4) С:\Пользователи\Никита\Документы\История ЭВМ.doc
5) С:\Библиотека
<span>6) С:\Рабочий стол\Снигери.png</span>