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.
