Паскаль найти минимальное из трех вещественных чисел
Var a,b,c:integer; begin Readln(a,b,c); Writeln(min(min(a,b),c)); end.