Vết chương trình tính tổng A=1/1*3 +1/2*4+...+1/n(n+2) Giải bằng hai cách

cách 1(dùng for-to-do):

program oken;
uses crt;
var i,n:longint;
    s: real;
begin
        clrscr;
        write('nhap n: '); readln(n);
        for i:=1 to n do
                s:=s+ 1/(i*(i+2));
        writeln('Tong S: ',s:0:3);
        readln;
end.

cách 2( dùng while-do):

program oken;
uses crt;
var i,n:longint;
    s: real;
begin
        clrscr;
        write('nhap n: '); readln(n);
        i:=1; s:=0;
        while i<=n do
                begin
                        s:=s+ 1/(i*(i+2));
                        i:=i+1;
                end;
        writeln('Tong S: ',s:0:3);
        readln;
end.

${Oken}$

cách 1(dùng for-to-do):

program Bai_tap_1;
uses crt;
var i,n:longint;
    s: real;
begin
        clrscr;
        write('nhap n: '); readln(n);
        for i:=1 to n do
                s:=s+ 1/(i*(i+2));
        writeln('Tong S: ',s:2:3);
        readln;
end.

cách 2( dùng while-do):

program Bai_tap_2;
uses crt;
var i,n:longint;
    s: real;
begin
        clrscr;
        write('nhap n: '); readln(n);
        i:=1; s:=0;
        while i<=n do
                begin
                        s:=s+ 1/(i*(i+2));
                        i:=i+1;
                end;
        writeln('Tong S: ',s:2:3);
        readln;
end.