p, n, i numere intregi;
scrie "Dati n=";
citire n;
p=1, i=1;
cat timp i<=n {
p=p*i;
i=i+1;
}
scrie "p="
scrie p;
