Назовите свойства объектов операционной системы ( рабочий стол)

Укаждого компьютера по-разному заполнены данные, и свойства тоже получаются у всех

Var a: array [1..5] of integer; i, amount: integer; begin       read(a[1], a[2], a[3], a[4], a[5]);       amount : = 0;       for i : = 1 to 5 do       begin           while a[i] > = 10 do           begin                 a[i] : = a[i] div 10;           end;           if a[i] = 8           then               amount : = amount + 1;       end;       writeln(amount); end.

Var a1, b1: integer; a, b: char; begin       read(a, b);       case a of       'i': a1 : = 1;       'v': a1 : = 5;       'x': a1 : = 10;       'l': a1 : = 50       end;       case b of       'i': b1 : = 1;       'v': b1 : = 5;       'x': b1 : = 10;       'l': b1 : = 50       end;       if a1 < b1       then           writeln(b1 - a1)       else           writeln(a1 + b1); end.