hãy sử dụng câu lệnh lặp với số lần chưa biết trước viết chương trình tính tổng các số tự nhiên từ 1 đến 20.

program oken;
uses crt;
var i,tong:longint;
Begin
        clrscr;
        i:=1;
        while i<=20 do
        begin
                tong:=tong+i;

                i:=i+1'
        end;
        writeln('Tong day so tren la: ',tong);
        readln;
end.

Program BTH;
uses crt;
var i,s:longint;
Begin
        clrscr;
        i:=0;
        While i<>20 do
        Begin
                i:=i+1;
                s:=s+i;
        end;
        writeln('Tong day so tren la: ',s);
        readln;
end.