Uses crt;
const n=10;
var a:array[1..n] of integer;
s,i,min,k:integer;
begin
min:=1000;
for i:=1 to n do
begin
readln(a[i]);
if a[i]<min then begin min:=a[i]; k:=i; end;
end;
s:=0;
for i:=k+1 to n do
s:=s+a[i];
writeln(s);
end.
Program n5;
var p: real;
i,n: integer;
begin
p:=1;
readln(n);
for i:=1 to n do p:=p*(2*i)/(2*i+1);
writeln(p);
end.
Program n1;
var sum,k,a: integer;
begin
readln(a);
sum:=0;
k:=0;
while a<>0 do
begin
if (a>99) and (a<1000) then
begin
k:=k+1;
sum:=sum+a;
end;
readln(a);
end;
if k=0 then write('NO') else write(sum/k);
end.
Program n2;
var k,a: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a>99) and (a<1000) and (a mod 4=0) then k:=k+1;
readln(a);
end;
write(k);
end.
Var a:array[1..15] of integer;
i,b: integer;
begin
b:=1;
for i:=1 to 15 do readln(a[i]);
for i:=1 to 15 do if a[i] mod 2 =0 then b:=b*a[i];
writeln(b);
end.
1) if b<>0 then
begin
y:=-c/b ;
writeln('(0;',y,')');
end
else writeln('такой точки нет');
2) if a<>0 then
begin
y:=-c/a ;
writeln('(',x,'0)');
end
else writeln('такой точки нет');
3) 4) аналогично для коэффициентов <span> d, e, f</span>
5) if (bd-ae)<>0 then
begin
x:=(-f*b+e*c)/(b*d-a*e);
y:=(-c-a*x)/b;
writeln('(',x,';',y,')');
end
else writeln('не пересекаются');