Если я правильно понял условие(Вывести сколько раз в массиве встречается число введенное с клавиатуры), то
for i:=m to n do
if a[i]=x then k:=k+1;
write(k);
П.с. если условие такое как я понял, то переменная USL вообще не нужна.
<span>Панель задач
это помещенная по умолчанию внизу рабочего стола панель, которая содержит кнопку "Пуск", кнопки выполняющихся приложений, панели инструментов, область уведомлений (трей) и системные часы. Настроенная панель задач может значительно облегчить работу с компьютером, обеспечив быстрый доступ к часто используемым функциям и системным сервисам.
Щелкнув правой кнопкой мыши на пустом месте панели задач, вы увидите контекстное меню для доступа к некоторым функциям ОС а также настройке самой панели и меню "Пуск". Отсюда можно вызвать "Диспетчер задач", сгруппировать открытые окна приложений, свернуть или развернуть все открытые окна.
В контекстном меню снимите галочку с пункта "Закрепить панель задач". Панель стала разбита на участки, которые можно сдвигать влево и вправо, а также вверх и вниз для расширения места выделяемого под ту или иную функцию, или перемещать к любой стороне экрана. Как правило, одной строки маловато, поэтому лучше растянуть панель по высоте на две строки.
В контекстном меню есть пункт "Панели инструментов", который предлагает несколько стандартных панелей:</span>Адрес - эта панель удобна для ввода веб-адресов и перехода на веб-страницы; Ссылки - это панель, которая по умолчанию встроена в IE и содержит веб-адреса для поддержки продуктов Microsoft;
Языковая панель - отображает индикатор раскладки клавиатуры - показывает RU или EN в зависимости от текущей раскладки клавиатуры;
Рабочий стол - содержит ссылки с выпадающими меню к ярлыкам или программам, расположенным на рабочем столе;
Быстрый запуск - очень удобная панель, в нее можно простым перетаскиванием поместить ярлык на нужную программу, и она будет запускаться одним нажатием кнопки. Это намного удобнее, чем размещение ярлыков на рабочем столе.<span>
</span>
5 разрезов ну почему обязательно 20 символов? ну с начала отрезаешь и конец вот те 1 см потом так же вот те 2 см и 3 см тоже так
Дополнительное ПО, суда можно отнести Microsoft word Openoficeorg, Writer и другие
Var
x, sum: integer;
begin
read(x);
while(x gt; 0) do
begin
if(x mod 10 lt;= 5) then sum := sum + x mod 10;
x := x div 10;
end;
write(sum);
end.