известно колличество жителей которые проживают в каждом из n районов города. Составить программу для нахождения колличества районов в котором проживает не больше чем 70000 жителей.

vari,n,k,a:integer;beginwriteln('введите кол-во районов');readln(n);writeln('введите кол-во жителей для каждого района');for i:=1 to n do beginreadln(a);if a<70000 thenk:=k+1;end;writeln('кол-во районов,в которых проживает не больше 70000 жителей=',k)end.