1/ Program Hotboy ; {có thể đổi tên nha em}
Uses crt;
Var P,n,i : real;
Begin
Clrscr;
P:=1;
Write('nhap so n');
Readln(n);
For i:= 1 to n do
P:=P*i;
I:=i+2;
Writeln('tich P la',P);
Readln
End.
2/ 1/ Program Hotboy ; {có thể đổi tên nha em}
Uses crt;
Var S,n,i : real;
Begin
Clrscr;
S:=0;
Write('nhap so n');
Readln(n);
For i:= 1 to n do
P:=P+ i;
I:=i+2;
Writeln('tong S la',S);
Readln
End.