известно колличество жителей которые проживают в каждом из 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.