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

Var

i, n, k, a:integer;

begin

writeln ('введите кол-во районов') ;

readln (n) ;

writeln ('введите кол-во жителей для каждого района') ;

for i:=1 to n do begin

readln (a) ;

if a<70000 then

k:=k+1;

end;

writeln ('кол-во районов, в которых проживает не больше 70000 жителей=', k)

end.