Program n1;
var n: integer;
begin
readln(n);
if n mod 12 = 0 then writeln('надо вынести ', n div 12, ' ведер')
else writeln('надо вынести ', (n div 12)+1, ' ведер');
end.
Uses GraphABC;
Var
R:integer:=70; //радиус Солнца
A:array[1..4,1..5] of integer;
//A[1] - x
//A[2] - y
//A[3] - r
//A[4] - r орбиты
v:real:=0.03;
k:integer:=10; // Коэффициент масштабирования орбит
Begin
Window.Maximize;
A[1,3]:=10;
A[1,4]:=R+A[1,3]*k;
A[2,3]:=13;
A[2,4]:=A[1,4]+A[2,3]*k;
A[3,3]:=17;
A[3,4]:=A[2,4]+A[3,3]*k;
A[4,3]:=A[3,3] div 4;
A[4,4]:=A[3,3]+A[4,3]*k;
LockDrawing;
SetCoordinateOrigin(Window.Width div 2,Window.Height div 2);
Repeat
Window.Clear;
Brush.Color := clYellow;
FillCircle(0,0,R);
Brush.Color := clGray;
A[1,1]:=round(A[1,4]*Cos(v*3));
A[1,2]:=round(A[1,4]*Sin(v*3));
FillCircle(A[1,1],A[1,2],A[1,3]);
Brush.Color := clOrange;
A[2,1]:=round(A[2,4]*Cos(v*3/4));
A[2,2]:=round(A[2,4]*Sin(v*3/4));
FillCircle(A[2,1],A[2,2],A[2,3]);
Brush.Color := clBlue;
A[3,1]:=round(A[3,4]*Cos(v/4));
A[3,2]:=round(A[3,4]*Sin(v/4));
FillCircle(A[3,1],A[3,2],A[3,3]);
Brush.Color := clGray;
A[4,1]:=A[3,1]+round(A[4,4]*Cos(20*v));
A[4,2]:=A[3,2]+round(A[4,4]*Sin(20*v));
FillCircle(A[4,1],A[4,2],A[4,3]);
v:=v+0.03;
Redraw;
Until false;
End.
<span>n = int(input())
s = <span>0
</span>for i in range(n):
m = int(input())
if m<0: s+=m**<span>2
</span>print(s) </span>