Deskripsi untuk soal nomor 39 - 40

const satu=1;
var lala, x, haha, i:integer;
begin
    lala:=10;
    x:=10;
    haha:=0;
    for i:=0 to x do
    begin    
        if ((lala & (satu shl i)) <> 0) then
            haha:=haha+1;
    end;
{ A shl B adalah operator menggeser bit-bit A ke kiri sejumlah B kali}
    writeln(haha);
end.