{
print “please input a number”;
read x;
y := 1;
while (x > 0)
{
y := y * x;
x := x – 1;
}
print “its factorial is”;
write y;
}
{
print “please input a number”;
read x;
y := 1;
while (x > 0)
{
y := y * x;
x := x – 1;
}
print “its factorial is”;
write y;
}