var A:array [1..10] of integer;
s,k,i,p:integer;
begin
p:=1;
A[1]:=1;
for i:=2 to 10 do
begin
p:=p*i;
A[i]:=p;
end;
for i:=1 to 10 do
writeln ('a[',i,']=',a[i]);
writeln('Введите k');
readln(k);
s:=0;
for i:=1 to 10 do
begin
s:=s+A[i];
if s>k then break;
end;
if s>k then writeln('минимальное количество элементов массива сумма которых больше ',k,' = ',i)
else writeln ('В массиве нет таких элементов');
end.