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.