Решение задачи №12 из главы 15.Дан массив длиной N (не более 100 элементов). Проверить, что в нем в встречаются все числа от 0 д

Задача №12 из главы 15

Дан массив длиной N (не более 100 элементов). Проверить, что в нем в встречаются все числа от 0 до k, где 0≤k

program list_in_sequence15_12;

type Arr_ls = array[1..3] of integer; // секция обьявления типов
type Arr_sequence = array[1..100] of integer;
  
  { функция возвращает boolean значение }
function list_in_seq( ls: Arr_ls; seq: Arr_sequence ) : boolean;
  var n, i, j : integer;
  
begin // начало тела функции
  n := 0;
  for i:=1 to high(ls) do
  begin
     for j:=1 to high(seq) do
     begin
         if( ls[i] ) = ( seq[j] ) then
         begin
             n += 1;
             break
         end;
     end;
  end;
  if(n = high(ls)) then
     list_in_seq := True
  else
     list_in_seq := False;
  
end;  // завершение тела функции

 
var
  i, j : integer;
  ls: Arr_ls; // первый массив
  Arr_rand: Arr_sequence; // второй массив
  
// основная программа
begin
  
  for i:=1 to high(ls) do // заполнение первого массива 
    read( ls[i]);
  
  for i:=1 to high(ls) do   // вывод первого массива 
    write( ls[i], ' ');
  writeln();
  
  for j:=1 to high(Arr_rand) do  // заполнение второго массива
     Arr_rand[j]:=random(50);
     
   for j:=1 to high(Arr_rand) do 
     write( Arr_rand[j], '  ');  // вывод второго массива
  writeln();
  
  // вызов функции
  writeln(list_in_seq( ls, Arr_rand ));
 
end.