Cod sursa(job #22102)

Utilizator TudorutzuMusoiu Tudor Tudorutzu Data 25 februarie 2007 16:55:58
Problema Factorial Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.25 kb
Raporteaza aceasta sursa 
var f,g:text;
    i,p,x:integer;
begin
     assign(f,'fact.in'); reset(f);
     assign(g,'fact.out'); rewrite(g);
     read(f,p);  x:=0;
     for i:=1 to p do x:=x+5;
     if x=0 then write(g,'-1')
            else write(g,x);
     close(g);
end.