marsel092002 Пишу на Паскале:
Var a,b,c,min:real;
Begin
read(a,b,c); If a&ltb then min:=a else min:=b;
If c&ltmin then min:=c;
Write(min);
End.