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

Question

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

Answer 1

Var
i,k,n,a1:integer;

begin
readln(n);
readln(a1);
for i:=0 to n-1 do
begin
readln(k);
if (a1 = k) then
writeln("Есть такое число")
else
writeln("Нет такого числа");
end;
end.