Cod sursa(job #586399)

Utilizator SpiritGanea Dinu Spirit Data 30 aprilie 2011 22:28:36
Problema Factorial Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.23 kb
Raporteaza aceasta sursa 
Program Factorial;
var i,j,f:integer;
    p,l :longint;
    f1,f2:text;
begin
  assign(f1,'fact.in'); reset(f1);
  assign(f2,'fact.out'); rewrite(f2);
readln(f1,p);
l:=(p*10) div 2;
write(f2,l);
close(f1); close(f2);
end.