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