scriere.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program scriere;
var n,i,r:integer;
begin
write('n=');readln(n);
i:=0;
while n<>0 do
           begin
           r:=n mod 2;
           if r=1 then i:=i+1;
           n:=n div 2;
           end;
write (i);
readln;
end.