Cod sursa(job #583820)

Utilizator palatyimAtyim Paul palatyim Data 22 aprilie 2011 19:13:19
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
program Fact;
var n,s :longint;
var f,ff :text;
begin
assign(f,'fact.in');
reset(f);
readln(f,n);
close(f);
s:=-1;
if n=0 then
s:=1;
if n=1 then
s:=5;
if n=2 then
s:=10;
if n:=3 then
s:=15;
if n=4 then
s:=20;
assign(ff,'fact.out');
rewrite(ff);
write(ff,s);
close(ff)
end.