Выполни действия в двоичной системе счисления а) 11001+11111 б) 11*1100

uses crt;

var

  ar: array[1..19]of integer;

  i, mul, sum, count, min, mini: integer;

begin

  count : = 0;

  sum : = 0;

  mul : = 1;

  randomize;

  for i : = 1 to 19 do

  begin

    ar[i] : = random(13) - 6;

    mul : = mul * ar[i];

    if(ar[i] mod 2 = 0) then

    begin

      textbackground(green);  

      sum : = sum + ar[i];

      count : = count + 1;

    end;

    if(ar[i] = 5) then

      textbackground(red);

    write(ar[i], ' ');

    textbackground(black);  

  end;

  writeln();

  writeln('произведение всех элементов массива = ', mul);

  writeln('сумма четных чисел = ', sum, ', количество = ', count);

  min : = ar[1];

  mini : = 1;

  write('номера элементов, равных 5: ');

  for i : = 1 to 19 do

  begin

    if(ar[i] = 5) then

      write(i, ' ');

    if((ar[i]) < min) then

    begin

      min : = ar[i];

      mini : = i;

    end;

  end;

  writeln();

  writeln('минимальный элемент = ', min, ', его номер = ', mini);

end.

pascalвыделить код

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 var i,n: integer;     p,cs,sn: real; begin     repeat       write('введите n: '); readln(n);     until n> 0;     p: =1;     for i: =1 to n do     begin       cs: =cs+cos(i);       sn: =sn+sin(i);       p: =p*(cs/sn)     end;     writeln('произведение = ',p: 0: 6);     readln; end.