Cod sursa(job #938379)

Utilizator DjokValeriu Motroi Djok Data 12 aprilie 2013 15:05:18
Problema Factorial Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
 var  p, i, x, n, k:longint;

begin
 assign(input,'fact.in');
 assign(output,'fact.out');
 reset(input);
 rewrite(output);
 readln(p);
  i:=-1;
 repeat
  inc(i);
 until (p*4+i) mod 5=0;
  If p=0 then writeln('1')
         else if p>4 then writeln(p*4+i)
                     else writeln(-1);
    
  close(input);
  close(output);
end.