Program Minh; Uses Crt; Var n,s,i:longint; Begin Clrscr; Write('Nhap n: ');readln(n); For i:=1 to n do S:=s+i; Write('Tong day so tren la: ',s); Readln; End.
$\text{Về tính tích n số nguyên dương đầu tiên:}$
Program Minh; Uses crt; Var n,s,i:longint; Begin Clrscr; Write('Nhap n: ');readln(n); S:=1; For i:=1 to n do S:=s*i; Write('Tich day so tren la: ',s); Readln; End.
