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

var a,b,c,min:real;beginwrite('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.