Дана последовательность из n целых чисел. Определить, есть ли в ней число, равное первому из этой последовательности.

var i,k,n,a1:integer;beginreadln(n);readln(a1);for i:=0 to n-1 dobeginreadln(k);if (a1 = k) thenwriteln("Есть такое число")elsewriteln("Нет такого числа");end;end.