Каково значение служебного программного обеспечения?
а) проверки и улучшения работы составляющих компьютера
б) игра в комп.игры
в) выполнение работ, необходимых пользователю
г) контроль и компьютерным оборудованием

Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.

) Ввести строку. Удалить первое слово. 
2) В введенном тексте сочетание “and” заменить на “or”. 
3) Ввести строку. Определить количество слов, содержащих букву Z 
4) N=15 Определить, каких элементов больше положительных или отрицательных элементов массива 
5) В массиве хранятся оценки, выставленные спортсмену судьями. Определить , идущий спортсмену в зачет по олимпийской системе (средний без учета максимального и ми-нимального) . 
6) Определить, образуют ли элементы, стоящие на нечетных номерах, убывающую последовательность. 
7) Массив хранит оценки экзаменов 10_ти студентов по 5_ти предметам. Организовать заполнение массива случайными значениями от 2 до 5. Определить количество предметов, по которым были получены только оценки «5» и «4». 
8) Вывести все элементы массива А (5,5), располагающиеся ниже главной диагонали. 
9) Дан двумерный массив MAS. Ввести A (номер строки) и B (номер столбца) Определить сумму всех ближайших соседних элементов для MAS[A,B]. 
10) Вычислить НОД (A,B,C)+НОД (A,B,C,D), используя функцию нахождения НОД (наибольшего общего делителя) для двух чисел. 
11) Ввести три числа. Найти сумму первых цифр каждого числа, используя процедуру, которая оставляет только первую цифру числа. 
Например, даны 12, 520, 231, результат 1+5+2=8 
12) Вывести на экран только те строки исходного файла, которые состоят из одного слова. 
13) Удалить из файла самую длинную строку (сформировать новый файл) Нравится