viết chương trình nhập vào 2 số nguyên thông báo ra màng hình giá trị nhỏ nhất

uses crt;
var a,b:real;
{---------------------------chuong-trinh-con----------------------------}
function min(x,y:real):real;
begin
if x>y then min:=y
else if x<y then min:=x;
end;
{--------------------------chuong-trinh-chinh---------------------------}
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a=b then writeln('hai so bang nhau')
else begin
if min(a,b)=a then writeln(a:4:2,' la so nho nhat');
if min(a,b)=b then writeln(b:4:2,' la so nho nhat');
end;
readln;
end.

uses crt;
var a,b:longint;
begin 
clrscr;
   write('Nhap vao hai so nguyen: ');readln(a,b);
   if a=b then writeln('Hai so nay bang nhau') else
   if a<b then writeln('So nho nhat: ',a) else
   if a>b then writeln('So nho nhat: ',b);
readln
end.