Bai 1:
uses crt;
var n, i, s: word;
    function cs(n: word): word;
    var s, d: word;
    begin
        while n <> 0 do begin
            s:=n mod 10;
             n:=n div 10;
              inc(d);
                            end;
         cs:=d;
    end;
    function hh(n: word): boolean;
    var s, i: word;
    begin
        s:=0;
         for i:=1 to (n div 2) do
            if (n mod i=0) then s:=s+i;
        if (n=s) then hh:=true
        else hh:=false;
    end;
begin
clrscr;

        repeat
    write('nhap n: '); readln(n);
        until (n<10001);
     writeln('n co ',cs(n),' chu so');
    writeln('cac so hoan hao be hon n: ');
    for i:=1 to n do
        if (hh(i)) then write(i:3);
     while (n <> 0) do  begin
        s:=s*10+n mod 10;
        n:=n div 10;
                        end;
    writeln;
      writeln('n dao nguoc: ',s);
readln;
end.
Bai 2:
uses crt;
var n, s, d, i: integer;
begin
clrscr;
 write('nhap n: '); readln(n);
   d:=1;
   for i:=1 to n do begin 
    s:=s+i*d;
              d:=-d;  
    end;
 writeln('tong s: ',s);
readln;
end.