Hàm (function) tìm số nhỏ nhất trong 2 số. Áp dụng thủ tục để tìm giá trị nhỏ nhất của 3 số nhập từ bàn phím

PROGRAM CT84;
USES crt;
VAR a,b,c: INTEGER;
FUNCTION Min (x,y: INTEGER): INTEGER;
BEGIN
Min:=x;
IF x>y THEN Min:=y ELSE Min:=x;
END;
BEGIN
clrscr;
Write('Nhap vao 3 so : '); Readln(a,b,c);
Write('Gia tri nho nhat la: ', Min(Min(a,b),c));
Readln
END.

Download: http://www.mediafire.com/?cpdldbcelwrsy1r