Var r1,r2,r3,min:real;
begin
writeln('Введите результаты:');
readln(r1,r2,r3);
if r1if r3writeln('Лучший результат = ',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.