Cod sursa(job #291045)

Utilizator lsorin_94Lodoaba Sorin lsorin_94 Data 29 martie 2009 12:19:32
Problema Factorial Scor 5
Compilator fpc Status done
Runda The Beginners Marime 0.19 kb
Raporteaza aceasta sursa 
program fact;
var x,i:longint;
    f:text;
begin
   assign(f,'fact.in');
   reset(f);
   read(f,x);
   i:=5*x;
   assign(f,'fact.out');
   rewrite(f);
   write(f,i);
   close(f);
end.