a.

program phuongt;
uses crt;
  var s, n, i: integer;
begin
           clrscr;
           write('Nhap n = '); readln(n);
           s:=0;
           for i:=1 to n do s:=s+1/i;
           write('Tong = ', s:3:1);
           readln

end.

b.

program phuongt;
uses crt;
  var s, i: integer;
begin
           clrscr;
           s:=0;
           for i:=10 to 100 do s:=s+i;
           writeln('Tong (theo for...do) = ', s);
           s:=0; i:=10;
           while i<=100 do
           begin
                      s:=s+i;
                      i:=i+1;
           end;
           write('Tong (theo while...do) = ', s);
           readln

end.