Cod sursa(job #117129)

Utilizator TudorutzuMusoiu Tudor Tudorutzu Data 20 decembrie 2007 19:35:36
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.27 kb
Raporteaza aceasta sursa 
var n:longint;
    x:integer;
    f,g:text;
begin
     assign(f,'factorial.in'); reset(f);
     assign(g,'factorial.out'); rewrite(g);
     readln(f,n);
     if n mod 5 = 0 then
     begin
          x:=-1;
          writeln(g,x);
     end;
     close(g);
end.