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

СПАСИБУШКИИИИИИИ**

тут даже переменную мин можно не вводить

var r1,r2,r3,min:real;beginwriteln('Введите результаты:');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

var    r1, r2, r3: real;begin    write('Введите результаты: ');    readln(r1, r2, r3);        if r1 > r2 then r1 := r2;    if r1 > r3 then r1 := r3;        writeln('Лучший результат = ', r1);end.