Я не могу решить Оно 10
Не знаю может кто-нибудь сталкивался с этим
Мне нужно написать программу а как не знаю

Не больше - значит, меньше или равно. Они все сказали правду.
Среди них 0 брехунов, а это не больше 1, не больше 2, не больше 3 и не больше 4.
Причем тот, кто сказал "Не больше 4" - сказал правду, их же всего 4.
Если среди них есть один брехун, то опять-таки все сказали правду.
Потому что один - это не больше одного. Получаем противоречие.
Если среди них два брехуна, то соврал только один: который сказал
"Не больше одного". Опять противоречие.
Если брехунов трое, то соврали только двое, которые сказали
"Не больше 1" и "Не больше 2".

На Паскале:

program prog;

var

   a:array[1..20] of integer = (1,3,2,5,3,2,1,3,5,2,6,3,5,6,2,3,4,5,7,6);

   i,c:integer;

begin

   c:=0;

   for i:=1 to 20 do if a[i]>3 then c:=c+1;

   write('Количество дней с температурой воздуха больше 3 градусов: ', c);

end.

На Питоне:

c = 0

a = [1,3,2,5,3,2,1,3,5,2,6,3,5,6,2,3,4,5,7,6]

for i in a:

   if i > 3: c+=1

print(f'Количество дней с температурой воздуха больше 3 градусов: {c}')

Если нужно вводить температуру с клавиатуры:

На Паскале:

program prog;

var

   a:array[1..20] of integer;

   i,c:integer;

begin

   c:=0;

   for i:=1 to 20 do begin

       write('Введите температуру ', i, '-го дня: '); readln(a[i]);

       if a[i]>3 then c:=c+1;

   end;

   write('Количество дней с температурой воздуха больше 3 градусов: ', c);

end.

На Питоне:

c = 0

a = [int(input(f'Введите температуру {i+1}-го дня: ')) for i in range(20)]

print(a)

for i in a:

   if i > 3: c+=1

print(f'Количество дней с температурой воздуха больше 3 градусов: {c}')