Для заданных натуральных чисел n и k требуется вычислить количество чисел от 1 до n, имеющих в двоичной записи ровно k едениц. два натуральных числа через пробел n и k, не превышающие 10^9

// pascalabc.net

function dec2bin(n: integer): string;

begin

    for var c: =31 downto 0 do

        result += inttostr((n shr c) and 1);

end;

function count(b: string; c: char): integer;

begin

    for var i: =1 to length(b) do

        if b[i] = c then

            result += 1;

end;

begin

    var n: =32;

    var k: =3;

    var sum: =0;

    for var i: =1 to n do

        if count(dec2bin(i), '1') = k then

        begin

            sum += 1;

        end;

    writeln(sum);

end.

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

вроде так

random это  функция  возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:

a: = random(101)-50;       {числа от -50 до 50}

b: = random(101)-200;     {от -100 до 100}

а теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!