program ideone;
var n, i, rs, z :integer;
begin
readln(n);
i := 0;
rs := 0;
while (i<n) do begin
readln(z);
if (z > 100) then
rs := rs+1;
i:=i+1;
end;
writeln("raspuns: ",rs);
(* your code goes here *)
end.
cHJvZ3JhbSBpZGVvbmU7CnZhciBuLCBpLCBycywgeiA6aW50ZWdlcjsKYmVnaW4KcmVhZGxuKG4pOwppIDo9IDA7CnJzIDo9IDA7CndoaWxlIChpPG4pIGRvIGJlZ2luCnJlYWRsbih6KTsKaWYgKHogPiAxMDApIHRoZW4KCXJzIDo9IHJzKzE7Cmk6PWkrMTsKZW5kOwp3cml0ZWxuKCJyYXNwdW5zOiAiLHJzKTsKCSgqIHlvdXIgY29kZSBnb2VzIGhlcmUgKikKZW5kLg==