uses crt;
var A,B,C:array[1..100] of longint;
i,n,s1,s2,s3,s:integer;
begin
clrscr;
s:=0;
s1:=0;
s2:=0;
s3:=0;
for i:=1 to 12 do
begin
write('Cuoc phi dien thoai thang ',i,' :'); readln(A[i]);
write('Tien dien thap sang ',i,' :'); readln(B[i]);
write('Dich vu internet thang ',i,' :'); readln(C[i]);
s1:=s1+A[i];
s2:=s2+B[i];
s3:=s3+C[i];
end;
s:=(s1*12)+(s2*12)+(s3*12);
writeln('Tong so tien phai tra cho cac dich vu: ',s);
if (s1>s2) and (s1>s3) then write('Cuoc phi dien thoai co tong chi phi lon nhat') else
if (s2>s1) and (s2>s3) then write('Tien dien thap sang co tong chi phi lon nhat') else
if (s3>s2) and (s3>s1) then write('Dich vu internet co tong chi phi lon nhat');
writeln('Trung binh moi thang phai tra: ',s/12:0:0);
readln
end.