const n=10;
var
arr: array[1..100] of integer;
i, summ, a: integer;
begin
summ:=0;
readln(a);
for i:=1 to n do
begin
read(arr[i]);
if arr[i]>a then
inc(summ);
end;
writeln;
write(summ);
end.
Апостиль в Лос-Анджелесе без лишних нервов и бумажной волокиты
Основные этапы разработки сайта для стоматологической клиники
Продвижение своими сайтами как стратегия роста и независимости