Напишите программу, которая заполняет массив случайными целыми числами

, вводит с клавиатуры целое число N и копирует в новый массив все числа из исходного массива, для которых сумма значений всех цифр равна N.

Program a1;

var a, b: array [1 ... 10] of integer;

n, i, k, sum, c: integer;

begin

Randomize;

For i:=1 to 10 do

begin

a[i]:=random (100) ;

write (a[i]:3) ;

end;

Readln (n) ;

For i:=1 to 10 do

begin

k:=a[i];

while k>0 do

begin

sum:=sum + (k mod 10) ;

k:=k div 10;

end;

f (n=sum) then

begin

inc (c) ;

b[c]:=a[i];

end;

end;

for i:=1 to c do

write (b[i]:2) ;

end.