Cod sursa(job #690534)

Utilizator draganpetrutDragan Petrut Adrian draganpetrut Data 25 februarie 2012 18:28:54
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.1 kb
Raporteaza aceasta sursa 
var n,i,p:integer;
begin
readln(n);
p:=1;
for i:=1 to n do
p:=p*i;
     writeln(p);
     end.