Program Hotboy;

Uses crt;

Var a,b,c,d,min,max: real;

Begin

     Clrscr;

     Write('Nhap so thu nhat:');readln(a);Max:=a;

     Write('Nhap so thu hai:');readln(b);if b>=Max then Max:=b;

     Write('Nhap so thu ba:');readln(c);if c>=Max then Max:=c;

     Write('Nhap so thu tu:');readln(d);if d>=Max then Max:=d;

     Write('So lon nhat la:',Max);

Min:=a;

if b<=Min then Min:=b;

  if c<=Min then Min:=c;

If d<=Min then Min:=d;

Write('so nho nhat la',min);

Writeln(' tong cua so nho nhat va lon nhat la',max+min);

     readln

end.

var a,b,c,d,mi,ma: longint;

begin

ma:=-maxlongint;

mi:=maxlongint;

write('Nhap 4 so: '); readln(a,b,c,d);

if a>ma then ma:=a;

if b>ma then ma:=b;

if c>ma then ma:=c;

if d>ma then ma:=d;

if a<mi then mi:=a;

if b<mi then mi:=b;

if c<mi then mi:=c;

if d<mi then mi:=d;

write('Tong so lon nhat va nho nhat la: ',mi+ma);

readln

end.