program min3so;
uses crt;
var a,b,c:real;
//Dung de tim min
function min(a,b,c:real):real;
begin
if (a<b)and(a<c) then min:=a else
if (b<a)and(b<c) then min:=b else min:=c;
end;
begin
clrscr;
// Nhap:
write('a,b,c=');readln(a,b,c);
writeln(min(a,b,c):0:2);
readln
end.
/////////////////////////////
Test:
