Program Faktorial

program faktorial;

uses wincrt;

var

n,i,a:longint;

begin

write('input:');readln(n);

write(n,'!=');

a:=1;

begin

for i:=1 to n do

begin

a:=a*i;

end;

end;

for i:=n downto 2 do

write(i,'x');

write(1);

if n>1 then

write('=',a);

end.