Https://arizonawet.arizona.edu/users/free-watch-last-dance-season-1-2020-full-movie-online https://arizonawet.arizona.edu/users/123movies-last-dance-season-hd-full-watch-online-free https://arizonawet.arizona.edu/users/free-watch-last-dance-season-1-10-2020-full-movie-online https://arizonawet.arizona.edu/users/123movies-last-dance-full-episode-hd-full-watch-online-free

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
  i, n: integer;
  p: BigInteger;

begin
  write('Введите число N ');
  readln(n);
  p := 1;
  for i := 1 to n do p := p * i;
  writeln( 'Произведение чисел от 1 до ',n,' равно : ',p);
end.

Тест №1:
Введите число N 5
Произведение чисел от 1 до 5 равно : 120

Тест №2:
Введите число N 100
Произведение чисел от 1 до 100 равно : 93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
  var n := readinteger('Размер массива ');
  //Для теста заполним массив сл. числами
  var a := arrrandom(n); a.Println;
  var x:=readinteger('Введите число Х');
  if x in a then writeln('массив содержит число ', x)
  else writeln('массив не содержит число ', x)
end.

Тест №1
Размер массива  10
96 14 36 84 55 1 74 99 72 20
Введите число Х 14
массив содержит число 14

Тест №2
Размер массива  10
59 9 8 98 75 34 52 63 62 17
Введите число Х 55
массив не содержит число 55