fork download

copy

program HelloWorld;
uses crt;
function factorial(n : longint) : longint;
begin
		if (n>0) then
			begin
				factorial:= n*factorial(n-1);
			end
			else
				factorial:= 1;
	end;
var
n : longint;
r : longint;
x : Real;
begin
readln(n);
readln(r);
x := factorial(n)/ ( factorial(r) * factorial (n-r));
Writeln(n,' kombinasi ',r, ' adalah ', factorial(n));
Readln;
end.	
 

Mozart Compiler 1.4.0 (20080704) playing Oz 3

%%% feeding file prog.oz

%*************************** parse error ************************
%**
%** syntax error, unexpected ';', expecting T_ENDOFFILE
%**
%** in file "./prog.oz", line 1, column 18
%** ------------------ rejected (1 error)

Standard output is empty