Задача на последовательности

[Брутальный М.]

Дано натуральное число n,целые числа а1,...
а25,b1,...bn.Среди а1,..,а25 нет повторяющихся чисел,нет их и среди b1,...,bn.
Верно ли,что все члены последовательности b1,...,bn входят в последовательность а1,...,а25 ?

[Tayfun]

С наступающим!

program posled;
uses crt;
const max_n=100;
label 1;
var
   a:array[1..25] of integer;
   b:array[1..max_n] of integer;
   j,i,n:integer;
   bb,yes:boolean;
begin
   clrscr;
   writeln('Vvedite n');
   readln(n);
   randomize;
   write('A{ ');
   for i:=1 to 25 do begin
      1:
      a[i]:=random(100);
      for j:=1 to i-1 do
         if a[i]=a[j] then goto 1;
      write(a[i],' ');
   end;
   writeln('}');
   writeln('Vvedite massiv B');
   for i:=1 to n do begin
      write('B[',i,']=');
      readln(b[i]);
   end;
   bb:=true;
   for i:=1 to n do begin
      yes:=false;
      for j:=1 to 25 do
         if b[i]=a[j] then yes:=true;
      if yes=false then bb:=false;
   end;
   if bb=true then writeln('Vse elementi B prisutstvuyut v A')
      else writeln('Nevse elementi B prisutstvuyut v A');
   readkey;
end.

[Брутальный М.]

благодарствую
и тебя с наступающим