Sử dụng vòng lặp for…do hoặc while…do để viết chương trình tính tổng S = 1+2+3+…+2020

program tinhtong;

uses crt;

var i:integer;

     s:longint;

begin

       clrscr;

       s:=0;

       for i:=1 to 2020 do

              s:=s+i;

       write(‘S= ‘,s);

       readln;

end.