Программу оформить в паскале) Даны натуральное число n и целые числа. Выяснить,…

Program p1; Var: menee_dvadcati,n,i,x: integer; Beginx: =0; //обнуляем x Readln (n); //считываем n For i: =1 to n do Begin Readln (x); //ввод числа If x<20 then//проверка (больше 20?) menee_dvadcati: =menee_dvadcati+1; //считаем количество end; If menee_dvadcati>5 then //проверка (больше 5?) Writeln ('Да') else Writeln ('Нет'); End.