Cod sursa(job #1447162)

Utilizator butmalai.danButmalai Dan butmalai.dan Data 3 iunie 2015 19:48:41
Problema Factorial Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.24 kb
Raporteaza aceasta sursa 
program fact;
 var k,n:longint;
     fi,fo:text;
begin assign(fi,'fact.in');
      assign(fo,'fact.out');
      reset(fi);
      rewrite(fo);
      read(fi,k);
      n:=k*5;
      if k=0 then n:=1;
      write(fo,n);
      close(fo);
end.