program q;
uses crt;
const n=10; m=5;g=5;
var i,j:integer;
s,s1,s2,s3,s4,s5,k:real;
a:array[1..n]of integer;
b:array[1..m]of integer;
c:array[1..g]of integer;
begin
clrscr;
for i:=1 to n do
begin
writeln('Ââåäèòå a[',i,']');
read(a[i]);
end;
writeln('Ââåäåííûé ìàññèâ');
for i:=1 to n do
write(a[i],'');
for i:=1 to m do
begin
writeln(' Ââåäèòå b[',i,']');
read(b[i]);
end;
writeln('Ââåäåííûé ìàññèâ');
for i:=1 to m do
write(b[i],'');
for i:=1 to g do
begin
writeln(' Ââåäèòå c[',i,']');
read(c[i]);
end;
writeln('Ââåäåííûé ìàññèâ');
for i:=1 to g do
write(c[i],'');
s:=0;
for i:=1 to n do begin
s:=s+a[i];
end;
s1:=trunc(s/n);
writeln;
writeln('sr arif',s1);
s2:=0;
for i:=1 to m do begin
s2:=s2+b[i];
end;
s3:=trunc(s2/m);
writeln;
writeln('sr arif',s3);
s4:=0;
for i:=1 to g do begin
s4:=s4+c[i];
end;
s5:=trunc(s4/g);
writeln;
writeln('ñðåäíåå àðèôìåòè÷åñêîå',s5);
k:=s1+s3+s5;
writeln;

Writeln('ñóììà öåëîé ÷àñòè ñðåäíåãî àðèôìåòè÷åñêîãî',k);
end.