Задан одномерный массив из N чисел и число K.Напечатать "да" ,

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  var k:=ReadInteger('k=');
  var i:=a.FindIndex(x-gt;x=k);
  if i=-1 then Writeln('нет')
  else Writeln('да')
end.

Примеры
n= 15
43 -58 43 62 60 -32 60 50 73 99 -75 98 6 -42 79
k= 73
да

n= 8
-86 30 47 -75 85 32 -70 83
k= 10
нет

A = list(map(int,input().split()))
k = int(input())
if k in a:
    print ('да')
else:
    print ('нет')