chươn trình tính tổng N số tự nhiên đàu tiên với N nhập từ bàn phím

program tong_dau_tien;

uses crt;

var n,i,t:integer;

begin

       clrscr;

       write(‘Nhap N: ‘);  readln(n);

       t:=0;

       for i:=1 to n do

              t:=t+i;

       write(‘Tong ‘,n,’ so tu nhien dau tien la :’,t);

       readln;

end.