prorgram bt;
uses crt;
var a,b,c: integer;
begin
write(nhap a,b,c:')readln(a,b,c);
if (a<b) and (a<c) then writeln(a,' la so nho nhat')
else if (b<a) and (b<c) then writeln(b,' la so nho nhat')
else writeln(c,' la so nho nhat');
readln
end.
chúc bạn học tốt