Var A,R:longint;
c:byte;
Begin
WriteLn('Введите 100 целых чисел');
R:=0;
For c:= 1 to 100 do
Begin
ReadLn(A);
if c mod 2 <> 0 then R:=R+A
else R:=R-A
End;
if R=0 then WriteLn('Чаши равны')
else if R>0 then WriteLn('Левая, на ',R*5,' г.')
else WriteLn('Правая, на ',-R*5,' г')
End.