bài 1
progam tinh_p ;
uses crt ;
var i ,p : integer ;
begin
clrscr;
P:=1;
for i:=1 to 5 do
p:=p*i ;
writeln('p=',p);
readln
end.
bài 2
program tong_S ;
uses crt ;
var i ,n,s : integer ;
begin
clrscr;
s:=0;
write('n=');readln(n);
for i:=1 to n do
S:=s+i ;
writeln('Tong = ',s);
readln
end.