1. Системное программное обеспечение 1.1. Операционные системы
1.1.1. Windows
1.1.2. Linux
1.1.3. Mac OS
1.2. Сервисные программы
1.2.1. Программы обслуживания дисков
1.2.2. Архиваторы
1.2.3. Антивирусные программы
1.2.4. Коммуникационные программы
2. Прикладное программное обеспечение
2.1. Приложения общего назначения
2.1.1. Текстовые редакторы
2.1.1.1. Word
2.1.1.2. Writer
2.1.2. Электронные таблицы
2.1.3. Графические редакторы
2.1.3.1. Paint
2.1.3.2. Gimp
2.1.4. Редакторы презентаций 2.2. Приложения специального назначения
2.2.1. Издательские системы
2.2.2. Бухгалтерские программы
2.2.3. Математические пакеты
2.2.4. Геоинформационные системы
3. Системы программирования
3.1. Лого
3.2. Паскаль

//Как-то громоздко получилось, но я так вижу. Эх, выходные.
const n=5;
var a:array[1..n] of integer;
b:array[0..8] of integer;
ar:array[1..n] of integer;
i,c,j:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
a[i]:=random(8);
write(a[i]:4);
end;
for i:=1 to n do
 begin;
  for j:=0 to 8 do
    if a[i]=j then inc(b[j]);
 end;
for i:=1 to n do
 begin;
  for j:=0 to 8 do
   if (b[j]>1) and (a[i]=j) then a[i]:=9;
 if a[i]<>9 then
  begin;
   inc(c);
   ar[c]:=a[i];
  end;
 end;
 writeln;
 for i:=0 to 8 do writeln(i,'=',b[i]);
writeln;
writeln('Final array:');
for i:=1 to n do
if a[i]=9 then a[i]:=0;

for i:=1 to c do
begin;
 a[i]:=ar[i];
 write(a[i]:4);
end;
end.

// PascalABC.NET 3.0, сборка 1076
begin
  var n:=ReadInteger('Число элементов массива=');
  var a:=ArrRandom(n,-25,25);
  Write('Исходный массив: '); a.Println;
  var k:=a.Where(x->sqr(x)>sqr(a[0])).Count;
  if k>0 then Writeln
    ('Найдено ',k,' элементов, квадрат которых больше квадрата первого')
  else Writeln
    ('Нет ни одного элемента, квадрат которого больше квадрата первого')
end.

Тестовое решение:
Число элементов массива=15
Исходный массив: 11 12 -11 -3 -16 -22 22 4 -4 -1 -16 -9 -19 4 16
Найдено 7 элементов, квадрат которых больше квадрата первого