Dùng chương trình con của 2 số để tìm 3 số

program nho_nhat;

uses crt;

var a,b,c,nn:integer;

{---Chuong-trinh-con---}

function min(x,y:integer):integer;

begin

      if x<y then min:=x else min:=y;

end;

{---Chuong-trinh-chinh---}

BEGIN

      clrscr;

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

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

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

      nn:=min(a,b);

      nn:=min(nn,c);

      write('So nho nhat la: ',nn);

      readln;

end.

Dùng chương trình con của 3 số

program nho_nhat;

uses crt;

var a,b,c:integer;

{---Chuong-trinh-con---}

function min(x,y,z:integer):integer;

begin

      min:=x;

     if y<min then min:=y;

     if z<min then min:=z;

end;

{---Chuong-trinh-chinh---}

BEGIN

      clrscr;

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

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

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

      write('So nho nhat la: ',min(a,b,c));

      readln;

end.