Даны три вещественных числа. используя только два неполных условных оператора, определить: минимальное значение заданных чисел. надо написать программу.

Var a,b,c,min:real;
begin
writeln('a, b, c:');
readln(a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('min = ',min);
end.

Пример:
a, b, c:
8 5 6
min = 5