uses crt;
var i,n,max,vt:longint; a:array[1..12]of longint; tong:real;
begin
clrscr;
tong:=0;
for i:=1 to 12 do
begin
write('So kWh cua thang ',i,': ');readln(a[i]);
if (a[i]>=0)and(a[i]>50) then tong:=tong+1.678*50 else tong:=tong+1.678*a[i];
if (a[i]>=51)and(a[i]>100) then tong:=tong+1.734*50 else if a[i]>=51 then tong:=tong+1.734*(a[i]-50);
if (a[i]>=101)and(a[i]>200) then tong:=tong+2.014*100 else if (a[i]>=101) then tong:=tong+2.014*(a[i]-100);
if (a[i]>=201)and(a[i]>300) then tong:=tong+2.536*100 else if (a[i]>=201) then tong:=tong+2.536*(a[i]-200);
if (a[i]>=301)and(a[i]>400) then tong:=tong+2.834*100 else if (a[i]>=301)then tong:=tong+2.834*(a[i]-300);
if a[i]>=401 then tong:=tong+2.927*(a[i]-400);
if a[i]>max then begin max:=a[i]; vt:=i; end;
end;
writeln(vt);
writeln(tong:0:3);
readln
end.