Program FNG;
Uses crt;
Var a,b,c,d,min,max: longint;
Begin
Clrscr;
Write('Nhap a, b, c, d: '); Readln(a,b,c,d);
min:=a; max:=a;
If b>max then max:=b;
If b<min then min:=b;
If c>max then max:=c;
If c<min then min:=c;
If d>max then max:=d;
If d<min then min:=c;
Write('Tong: ',max+min);
Readln
End.