`1)`

uses crt;
 var s: real ;
  i , n : byte ;
  begin
   clrscr;
write('Nhap n: ');
 readln(n);
    for i := 1 to n do
 s := s + 1/(i*i+2);
  writeln('S=',s:1:1);
   end.

`2)`

uses crt;
 var x,n,i : byte ;
  s : real ;
   begin
    clrscr;
 write('Nhap x: ');
   readln(x);
  write('Nhap n: ');
     readln(n);
  i:=1;
  S := 1;
     while i<=n do
   begin
  S := s * x ;
  i := i + 1 ;
   end ;
     writeln('Ket qua cua ',x,'^',n,' la: ',s:0:0);
   end.

Câu 1:

uses crt;

var i,n: integer;

s: real;

begin

clrscr;

write ('nhap n: ');  readln (n);

s:=0;

for i:=1 to n do s:=s+1/i;

writeln ('tong la: ',s);

readln;

end.

Câu 2:

uses crt;

var x,n,i,xn: integer;

begin

clrscr;

write ('nhap x: ');  readln (x);

write ('nhap n: ');  readln (n);

xn:=1;

i:=0;

while i<=n do

begin

xn:=xn*x;

i:=i+1;

end;

writeln ('Ket qua: ',xn);

readln;

end.