为毛10分？

var
    a:array[1..1000] of longint;
    i,n,x:longint;
begin
    n:=0;
    for i:=1 to 10 do
    read(a[i]);
    read(x);
    x:=x+30;
    if x>=a[i] then
    n:=n+1;
    write(n);
end.