CS计算机代考程序代写 {

{
print “please input a number”;
read x;
y := 1;
for (i <- 1 .. x) { y := y * i; } print "its factorial is"; write y; }