Написать задачу которая найдёт лучший результат в забеге на 100м трех спортсменов

var s1,s2,s3:Integer; Begin  Writeln(' Введите результат 1-го спортсмена');  Read(s1);  Writeln(' Введите результат 2-го спортсмена');  Read(s2);  Writeln(' Введите результат 3-го спортсмена');  Read(s3);  if (s1>s2 and s1>s3) then Writeln('Наилучший результат ',s1)  else if (s2>s1 and s2>s3) Writeln('Наилучший результат ',s2)  else Writeln ('Наилучший результат ',s3) end.