Записать программу формирования и выделения n элементов паскаль n< =1000 первые n простых чисел

Function simple(a: integer): boolean; begin   result : = true;   for i: integer : = 2 to (a div 2) do     if (a mod i = 0) then      begin       result : = false;       break;     end; end; const   n = 10; var   i: longint : = 1;   j: longint;   a: array [1..n] of longint; begin   while (a[n] = 0) do   begin           while (a[i] = 0) do     begin       j += 1;       if (simple(j)) then       begin         a[i] : = j;       end;     end;     i += 1;   end;   for i : = 1 to n do     write(a[i], ' '); end.

Так как в корзине 4 груши и 12 яблок, то вероятность достать грушу составляет 4/16 = 1/4 (для яблока 12/16 = 3/4). если существует n равновероятных событий, то вероятность каждого отдельного события равна p=1/n. применяя формулу:   2 в степени i  = n = 1/p получаем i = 2 бита.

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.