program tinh_tong; {tên chương trình chỉ gồm chữ cái, chữ số và dấu '_');
uses crt;
var i,n:integer; {Tên kiểu dữ liệu viết sai}
S:longint;
Begin
clrscr;
write('nhap so n ='); readln(n);
i:=1; s:=0;
while i<=n do begin {điều kiện bị sai}
S:=S+i;
i:=i+1;
End;
write('tong cua ',n,' so tu nhien dau tien la ',s);
readln
end.