1.сравнить:
202020(3)+A13(12) и C00(16)-1001111(2)
(С пояснением)

2.excel: составить таблицу, которая определяет, какая сумма останется у хозяина гостиницы после выплаты зарплаты, если:
официант получает в 1,5 раза больше мойщика посуды;
повар - в 3 раза больше мойщика посуды;
шеф-повар - на 30$ больше повара;
завхоз - на 40$ больше официанта;
метрдотель - в 4 раза больше мойщика посуды;
управляющий - на 20$ больше метрдотеля.
зарплату официанта задать самостоятельно

В распоряжении хозяина 10000$.
построить круговую диаграмму «зарплата»

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
  var k:=0;
  for var i:=0 to a.Length-1 do
    if a[i]>7 then begin a[i]:=7; Inc(k) end;
  a.Println;
  Writeln('Количество замен равно ',k);
  // если нужно общее количество семерок, замените
  // предыдущую строку следующей:
  // Writeln('Количество семерок равно ',a.Where(x->x=7).Count);
end.

Тестовое решение
n= 15
10 -11 14 12 -9 17 -4 11 -20 14 5 5 -3 -1 -2
7 -11 7 7 -9 7 -4 7 -20 7 5 5 -3 -1 -2
Количество замен равно 6

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(20,-5,8); a.Println;
  var b:=a.Where(x->x<>0).ToArray; b.Println;
  Writeln('Количество нулей равно ',20-b.Count);
end.

Тестовое решение
-4 0 -5 -1 7 3 6 7 7 0 5 -2 -5 -2 7 0 3 1 7 3
-4 -5 -1 7 3 6 7 7 5 -2 -5 -2 7 3 1 7 3
Количество нулей равно 3

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=15;

 Var
 ar:array[1..n] of integer;
 pro,i,k:uint64;
begin
 randomize;
 pro:=1;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(22,23); //Серьёно?
   write(ar[i]:4); 
  pro:=pro*ar[i];
  end;
 writeln;
 writeln('Pro=',pro);
 write('Enter value:');
 readln(k);
 writeln('Final array:');
 for i:=1 to n do
  begin
   ar[i]:=ar[i]+k;
   write(ar[i]:6);
  end;
end.

Пример работы программы:
First array:
  23  23  22  22  22  22  23  23  23  22  23  22  22  23  23
Pro=10868183115618730368
Enter value:3
Final array:
    26    26    25    25    25    25    26    26    26    25    26    25    25    26    26