Viết chương trình tìm gtnn của 4số có sử dụng CT con tìm gtnn của 2 số

uses crt;
var a,b,c,d:longint;
function min(a,b:longint):longint;
begin
   min:=a; 
   if a>b then min:=b; 
end;
begin
clrscr;
   write('Nhap 4 so: ');readln(a,b,c,d);
   writeln('Gia tri nho nhat: ',min(a,min(b,min(c,d))));
readln 
end.

program bai_giai;
uses crt;
var a,b,c,d,min:integer;
function gtnn(x,y:integer):integer;
begin
    if x>y then gtnn:=y else gtnn:=x;
end;
BEGIN
    clrscr;
    readln(a,b,c,d);
    min:=gtnn(a,b);
    min:=gtnn(min,c);
    min:=gtnn(min,d);
    write(min);
    readln;
end.