Определить, есть ли среди введенных натуральных чисел число k

Var n,k: integer;
begin
write(Введите целые числа n (n>0) и k: );
readln(n,k);
  assert(n>0);
var Exists := false;
for var i := 1 to n do
begin
write(Введите , i, целое число: );
var x := ReadInteger;
if x = k then
begin
Exists := true;
break;
end;
  end;
if Exists then
writeln(Число , k, было введено)
else writeln(Число , k, не было введено);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.