Өтінемін көмектесіңіздерші

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Количество отрицательных значений ',a.Where(t->t<0).Count);
end.

Пример
n= 15
3 39 3 2 43 43 -37 -2 -50 3 -25 15 -7 4 21
Количество отрицательных значений 5

№2

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var k:=ReadInteger('k=');
  if a.ElementsByRow.Any(t->t>k) then Writeln('Есть')
  else Writeln('Нет')
end.

Пример
Количество строк и столбцов в массиве: 5 8
*** Исходный массив ***
  -9  48 -98 -35 -33 -29  44 -32
 -33 -48 -62  11  45  53  52  90
 -96  -1  68 -21  15 -72 -78 -28
  44  15 -53 -33 -27  89 -60 -49
  28 -73 -99  81  23  -9 -93 -66

k= 92
Нет

Var
  z, s: real;
  n, p: integer;

begin
  Write('Введите размер оплаты труда: ');
  Readln(z);
  Write('Лицензия первичная (1) или повторная (2)? ');
  Readln(p);
  Writeln('На сколько лет выдается лицензия?');
  Writeln('0 - до года, 1 - 1-2 года, 2 - 2-3 года,');
  Write('3 - 3-4 года, 4 - 4-5 лет: ');
  Readln(n);
  case n of
    0: s := 0.3 * z;
    1: s := 0.4 * z;
    2: s := 0.5 * z;
    3: s := 0.6 * z;
    4: s := 0.7 * z;
  else s := 1e9
  end;
  if p = 2 then s := 0.2 * s;
  Writeln('Сумма лицензионного сбора составит ', s:0:2)
end.

Тестовое решение:

Введите размер оплаты труда: 26400
Лицензия первичная (1) или повторная (2)? 1
На сколько лет выдается лицензия?
0 - до года, 1 - 1-2 года, 2 - 2-3 года,
3 - 3-4 года, 4 - 4-5 лет: 2
Сумма лицензионного сбора составит 13200.00