program bt;

Uses crt;

Var

         a,b:real;

Begin

        clrscr;

        write('Nhap a: '); readln(a);

        write('Nhap b: '); readln(b);

        If a>b then write(b,' la so nho nhat') else

       if a<b then write(a,' la so nho nhat'); 

        Readln;

End.

#HNgoc

#Chuc_em_hoc_tot

program nho;

uses crt;

var a, b : real;

begin

clrscr;

write('nhap gia tri so thuc a :');readln(a);

write('nhap gia tri so thuc b :');readln(b);

if a > b then writeln('b la so nho nhat trong hai so')

else writeln('a la so nho nhat trong hai so ');

readln

end.