program z771;

uses crt;

const n=2;

            var x:array[1..n] of integer;

k,s,i,u:integer;

BEGIN

  clrscr;

  randomize;

            for i:=1 to n do

                      begin

            x[i]:=random(40)-15;

            write(x[i]:7);

            end;

            writeln;

            s:=0; k:=0;

   for i:=1 to n do

             begin s:=s+x[i];k:=k+1 end;

             writeln('ñóììà',s:5);

             writeln('êîë',k:5);

            u:=s div k;

            writeln('cp=',u:7);

END.