Даны 3 числа а в с найти минимальное из них

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