Program tinh_tong;
Uses crt;
Var s:longint; n,i:integer;
Begin
clrscr;
write('nhap vào so n: ');readln(n);
for i:=1 to n do s:=s+i;
write('tong tren co ket qua la: 's);
readln;
End.
$\text{@Vân}$
$\text{#Chúc bạn học tốt nha}$
$\text{#Mong câu trả lời hay nhất ạ}$