Question

Помогите пожалуйста написать программу на Pascal

Answer 1

===== PascalABC.NET =====

begin

 var (n, k) := ReadInteger2;

 var a := new integer[n + 1];

 for var i := 1 to n do

   a[i] := 1 + Random(100);

 for var i := 1 to n do

   Print(a[i]);

 Writeln;

 var i := 1;

 while (a[i] <> k) and (i < n) do

   i += 1;

 if a[i] = k then

   Print(i)

 else

   Print('Нет')

end.