Bài 1:
Var n: integer; 
s: longint; 
BEGIN 
repeat 
write( 'Nhap n: '); readln(n); 
until (n>=0); 
s:=0; 
for i:=1 to n do 
s:=s+i; 
write('Tich cac so tu 1 toi ', n,' =', s); 
readln 
END. 

Bài 1
var n, i, j : byte; f, S: longint; 
begin 
write('Nhap n nguyen (2 <= n <= 12): '); readln(n); 
write('Ket qua: S = '); 
for i := 2 to n do 
begin write('+ ', i,'! '); 
f := 1; for j := 2 to i do f := f*j; 
S := S + f; 
end; 
write('= ', S); 
readln 
end. 

Bài 2
Tong s= s+ i 
Chương trình cụ thể: 

Var n: integer; 
s: longint; 
BEGIN 
repeat 
write( 'Nhap n: '); readln(n); 
until (n>=0); 
s:=0; 
for i:=1 to n do 
s:=s+i; 
write('Tong cac so tu 1 toi ', n,' =', s); 
readln 
END.