C++ :

#include<iostream>
using namespace std;
int js(int a)
{
	int c=1;
	for(int i=1;i<=a;++i)
	  c*=i;
	return c;
}
int main()
{
	int n;
	cin>>n;
	cout<<js(n);
	return 0;
}

Pascal :

var
n:integer;
function fac(n:integer):real;
begin
  if n=0 then fac:=1 else fac:=n*fac(n-1)
end;
begin
  readln(n);
  writeln(n,'!=',fac(n):6:0);
end.