program btsydn;

uses crt;

  var a, b, c, d, e, g, S, S1, S2, min, max: integer;

begin

         clrscr;

         a:=9;

         b:=-5;

         c:=17;

         d:=0;

         e:=2;

         g:=-15;

         S:=a+b+c+d+e+g;

         S1:=a+c+e;

         S2:=b+g;

         min:=a;

         if min>b then min:=b;

         if min>c then min:=c;

         if min>d then min:=d;

         if main>e then min:=e;

         if main>g then min:=g;

         max:=a;

         if max<b then max:=b;

         if max<c then max:=c;

         if max<d then max:=d;

         if max<e then max:=e;

         if max<g then max:=g;

         writeln('a) Tong = ', S);

         writeln('b) Tong so nguyen duong = ', S1);

         writeln('c) Tong so nguyen am = ', S2);

         writeln('d) So be nhat: ', min);

         writeln('e) So lon nhat: ', max);

         readln

end.