Написать задачу которая найдёт лучший результат в забеге на 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.