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

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