Cod sursa(job #241362)

Utilizator CrisstiHDCristian Holdunu CrisstiHD Data 9 ianuarie 2009 21:56:09
Problema Factorial Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.3 kb
Raporteaza aceasta sursa 
program factorial;

var n,p:longint;
        f,g:text;






        BEGIN

        assign(f,'fact.in');
        assign(g,'fact.out');
        reset(f);
        rewrite(g);


        read(f,p);


        n:=5*p;

        write(g,n);
        close(f);
        close(g);
        end.