Cod sursa(job #117127)

Utilizator TudorutzuMusoiu Tudor Tudorutzu Data 20 decembrie 2007 19:31:54
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.57 kb
var n:longint;
    f,g:text;
begin
     assign(f,'factorial.in'); reset(f);
     assign(g,'factorial.out'); rewrite(g);
     readln(f,n);
     if n=1 then writeln(g,'5');
     if n=2 then writeln(g,'10');
     if n=3 then writeln(g,'15');
     if n=4 then writeln(g,'20');
     if n=5 then writeln(g,'-1');
     if n=6 then writeln(g,'25');
     if n=7 then writeln(g,'30');
     if n=8 then writeln(g,'35');
     if n=9 then writeln(g,'40');
     if n=10 then writeln(g,'45');
     if n=11 then writeln(g,'-1');
     if n=12 then writeln(g,'50');
     close(g);
end.