program sorevnovaniya;
var a,b,c: integer;
begin
writeln ('Введите результаты соревнований');
readln (a,b,c);
if (a<b) and (c<b) then writeln (b, '-', 'результат',' ','победителя',' ', 'заплыва');
if (b<c) and (a<c) then writeln (c, '-', 'результат',' ','победителя',' ', 'заплыва');
if (b<a) and (c<a) then writeln (a, '-', 'результат',' ','победителя',' ', 'заплыва');
end.
Решается на обычном калькуляторе
1) 1011100010110 (если из десятиричной)
2) 4DC6 (если из десятиричной)
3) 266306 (если из восьмеричной)
1) 1112124
2) 1023144144
3) 4016