Cod sursa(job #387100)

Utilizator lsorin_94Lodoaba Sorin lsorin_94 Data 26 ianuarie 2010 20:40:29
Problema Factorial Scor 0
Compilator fpc Status done
Runda 1_24_2010 Marime 0.33 kb
Raporteaza aceasta sursa 
program fackt;
var
begin
  assign(f,'fact.in');
  reset(f);
  assign(t,'fact.out');
  rewrite(t);
  read(f,p)
  {--------------------}
  case p of
  0 :x:=1;
  1 :x:=5;
  2 :x:=10;
  3 :x:=15;
  4..100000000:
    begin
      x:=p*5;
    end;
  end;
  {--------------------}
  write(t,x);
  close(f);
  close(t);
end.