Дан целочисленный массив из 30 элементов Напишите алгоритм позволяющий найти сколько 1 был превышен лимит ноябре значение лимита не превышает 60 минут

Между end пишешь

T:=0;

For i:=1 to 30 do

Begin

If a[i]>60 then t:=t+1 ;

end;

If t>30 theb writeln ("рекомендую повысить лимит ") else writeln (" лимит оптимальный ");