Viết thuật toán và chương trình tính tổng các số tự nhiên sao cho tổng đầu tiên nhỏ nhất lớn hơn 2020

Thuật Toán:

B1: s←0; i←1;

B2: Nếu S≤2020 chuyển đến B3, ngược lại chuyển đến B5.

B3: s←s+i; i←i+1;

B4: Quay lại B2.

B5: In ra màn hình S.

B6: Kết thúc thuật toán. 

Viết Chương Trình:

program oken;
uses crt;
var s,i:longint;
begin
        clrscr;
        s:=0; i:=1;
        while s<=2020 do
                begin
                        s:=s+i;
                        i:=i+1;
                end;
        writeln('Tong la: ',s);
        readln;
end.

Thuật Toán:

B1: s←0; i←0;

B2: Nếu S≤2020 chuyển đến B3, ngược lại chuyển đến B4.

B3: i←i+1; S←S+i;và quay lại B2.

B4: In kết quả: S và n là số tự nhiên nhỏ nhất sao cho S>2000 và kết thúc thuật toán. 

Viết Chương Trình:

program Bai_tap_1;
uses crt;
var s,i:longint;
begin
        clrscr;
        s:=0; i:=1;
        while s<=2020 do
                begin
                        s:=s+i;
                        i:=i+1;
                end;
        writeln('Tong la: ',s);
        readln;
end.