Решите : даны 3 числа.найти найменьшее из них.

var  
a, b, c, min: Integer;
begin  
readln(a, b, c);  
min:=a;  
if b < min then min:=b;  
if c < min then min:=c;  
writeln(min);
end.