Составить программу на языке паскаль: из 100 чисел выбирают 20 праизвольным образом если среди выбраных чисел есть число

Пишем программу:Pascal.program qq;const N = 20;var a:array [1.N] of integer; i:integer;beginrandomize;for i:=1 to N do begina[i]:= random(101);write (a[i]:3);end;writeln;for I:=1 to N do if a[i]=50 then writeln(\'Да\',i)else writeln (\'Нет\');readln;end. Программа написана.