Cod sursa(job #6746)

Utilizator nod_softwareBudisteanu Ionut Alexandru nod_software Data 20 ianuarie 2007 20:28:56
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
program fact;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var n2,n5,nn,i,p,n,aux:longint;
    fin,fout:text;
{*---------MAIN-----------------*}
begin
  assign(fin,'fact.in');
  assign(fout,'fact.out');
  reset(fin);
  rewrite(fout);
  readln(fin,p)
  writeln(fout,-1);
  close(fout);
end.