Program zadacha;
var
k,x,i,n:integer;
m:Array[1..100] of Integer;
begin
k:=0;
readln(n);
for i:=1 to n do begin
readln(m[i]);
end;
for i:=2 to n do begin
if m[i]>m[1] then k:=k+1;
end;
write(k);
<span>end.</span>
Два только могу пока, если остальное высчитаю напишу.
<span>1111001-1101=1101100
</span><span>10101110:101=100010</span>