Archive of the former Mathematics and Computer Science Dept

Re-écrire ce programme sans faute:

program factorielle;

n,i: entier

begin

writeln (donnez n);

readln (n);

f:=1;

for i:=2 to n do;

f:=f*i;

ecrire ('la factorielle de ',n,' est f');

readln;

end.