Chương trình tính tổng từ 1+2+3+...+2020 là :
Program Tinh_tong;
Uses crt;
Var i,N,t : integer;
begin
clrscr;
t:=0 ;
write ('Nhap N ='); readln (N);
for i:= 1 to N do t:=t+i;
Writeln('tong tu 1 đến ',N,'là ',t);
readln ;
end.
/Khi màn hình đen xuất hiện thì ta nhập 2020 vào rồi ấn enter màn hình sẽ ra kết quả /