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

Var r1,r2,r3,min:real; begin writeln('Введите результаты:'); readln(r1,r2,r3); if r1<r2 then min:=r1 else min:=r2; if r3<min then min:=r3; writeln('Лучший результат = ',min); end. Пример: Введите результаты: 12.1 10.8 11.7 Лучший результат = 10.8