program kemal2; var fakt,i,n:integer; begin fakt:=1; for i:=1 to 5 do fakt:=fakt*i; writeln('faktoriyel= ',fakt); end.