Cod sursa(job #203916)

Utilizator codruta.pocolcodruta pocol codruta.pocol Data 20 august 2008 17:47:29
Problema Factorial Scor 15
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
program p_006a;
var p,n,i:longint;
begin
  assign(input,'fact.in'); reset(input);
  assign(output,'fact.out'); rewrite(output);
  readln(p);
  if p=0 then write('1') else begin
    n:=5*p;
    if n>=25 then begin
      i:=(n div 25)-1;
      n:=n-5*i;
    end;
    write(n);
  end;
  close(input); close(output);
end.