tinh gia tri bieu thuc s=1*2*3*…*n trong pascal

Program viet_chuong_trinh_tong;

uses crt;

var n,i,s:integer;

Begin  

Clrscr;  

write(‘nhap so :’);  

readln(n);  

S:=0; 

for i:=1 to n do S:=S+i; 

Write(‘Tong =’,S);

readln;

End.