РЕШИТЕ ЗАДАЧУ В ПАСКАЛЕ,ПОЖАЛУЙСТА!
напишите программу,которая заполняет массив из N элементов случайными целыми числами в диапазоне [A,B] и определяет количество элементов этого массива,у которых сумма цифр равна K.

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017// Внимание! Если программа не работает, обновите версию!function sn(n:integer):integer; // сумма цифр числаbegin  n:=Abs(n);  Result:=0;  while n>0 do begin    Result+=n mod 10;    n:=n div 10    endend;begin  var (n,a,b):=ReadInteger3('Введите n,a,b через пробел:');  var m:=ArrRandom(n,a,b); m.Println;  var k:=ReadInteger('k=');  Writeln('Найдено чисел: ',m.Where(t->sn(t)=k).Count)end.ПримерВведите n,a,b через пробел: 15 -50 6043 2 42 -26 -34 57 45 44 29 -41 -4 1 -17 38 -19k= 7Найдено чисел: 2