Rizka dewi
program faktorial;
uses wincrt;
var
i,n,f:integer;
begin
readln(n);
f:=1;
for i:=1 to n do
begin
f:=f*i;
end;
begin
for i:=n downto 2 do
begin
write(n,'x');
n:=n-1;
end;
end;
write('1','=',f);
end.
0 Responses

Posting Komentar