Создайте программу, запрашивающую у пользователя 10 чисел. Если больше 4-х из них окажутся больше 10, выведите сообщение "Караул! Сейчас все взорвется". Иначе сообщите, сколько введенных чисел больше 10, а сколько больше 5. (Паскаль)

Var

a, f, f1, i: integer;

begin

f : = 0;

f1 : = 0;

write ('Введите 10 чисел:') ;

for i : = 1 to 10 do

begin

read (a) ;

if (a > 10) then f : = f + 1;

if (a > 5) then f1 : = f1 + 1;

end;

if (f > 4) then write ('Караул! Сейчас все взорвется')

else

begin

writeln (f1, ' чисел (о) (а) больше 5') ;

write (f, ' чисел (о) (а) больше 10') ;

end;

end.