program tim abc;
uses crt;
var a, b, c: integer;
Begin 
write ("Nhap so nguyen a = ");

readln(a); 
write ("Nhap so nguyen b = ");

readln(b); 
write ("Nhap so nguyen c = ");

readln(c); 
max:=a; 
if max < b then max:=b; 
if max < c then max:=c; 
writeln ("So lon nhat trong 3 so la :",max); 
min:=a; 
if min>b then min:=b; 
if min>c then min:=c; 
writeln ("So lon nhot trong 3 so la :",min); 
readln; 
End

program kaito;
uses crt;
var a, b, c, min, max: integer;
begin
   clrscr;
   write('Nhap a: '); readln(a);
   write('Nhap b: '); readln(b);
   write('Nhap c: '); readln(c);
   max:=a;
   if (max<b) then max:=b;
   if (max<c) then max:=c;
   min:=a;
   if (min>b) then min:=b;
   if (min>c) then min:=c;
   writeln('Gia tri lon nhat la: ',max);
   writeln('Gia tri nho nhat la: ',min);
   readln
end.

CHÚC BẠN HỌC TỐT!!!