B1:Viết chương trình:Đọc từ file bai1.inp có 3 số nguyên a,b,c.In ra file bai1.out hiển thị số nguyên lớn nhất và số nguyên nhỏ nhất trong 3 số trên.(Ngôn ngữ Pascal). CẦN GẤP Ạ

var a,b,c,min,max:longint;
begin
   assign(input,'bai1.inp');reset(input);
   assign(output,'bai1.out');rewrite(output);
   read(a,b,c);
   if (a>b) and (a>c) then max:=a
         else if b<c then max:=c
         else max:=b;
   if (a<b) and (a<c) then min:=a
         else if b>c then min:=c
         else min:=b;
   write('so lon nhat ',max,' so be nhat ',min);
end.

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

var a, b, c : longint;
  function max(a, b:longint):longint;
     begin
    if a > b then exit(a);
    exit(b);
     end ;
begin
    assign(input,'bai1.inp'); reset(input);
    assign(output,'bai1.out'); rewrite(output);
    read(a,b,c);
    write(max(a,max(b,c)));
    close(input);close(output);
end .