Verified answer

uses crt;

var n,m:byte;

function hammu(m:integer;n:integer):longint;

Begin

if n=0 then hammu:=1 else

if n=1 then hammu:=m else

hammu:=hammu(m,n-1)*m;

end;

function haimun(n:integer):longint;

Begin

if n=0 then haimun:=1 else

if n=1 then haimun:=2 else

haimun:=haimun(n-1)*2;

end;

Begin

clrscr;

m:=6;n:=10;

writeln('Ham m mu n =',hammu(m,n));

writeln('Ham 2 mu n = ',haimun(n));

writeln('(2 mu n) *(m mu n)=',hammu(2,n)*hammu(m,n));

readln;

end.