viết chương trình in ra màn hình tính tổng các số dương từ 1 đến n. với n là số nguyên được nhập vào từ bàn phím Giúp em bài này với ạ, ai nhanh em

program tong_duong;

uses crt;

var n,i,t:integer;

begin

       clrscr;

       write(‘Nhap so nguyen n: ‘);   readln(n);

       t:=0;

       for i:=1 to n do

              t:=t+i;

       write(‘Tong cac so duong tu 1 den ‘,n,’ la: ‘,t);

       readln;

end.