[Паскаль] Вложенные циклы + процедура

[exzi11]

Что- то запаролся на элементарной задаче. ( рис. прилагается).
Возведение в степень надо оформить через процедуру. вот код. но в него надо добавить возведение в факториал и разобраться с типами.

var res1,i,j,m,n,otver:integer; lk:real;
procedure step(ch,st:integer;var res:integer);   {возв. в степень}
 var g,otv:integer;
 begin
 otv:=1;
for g:=1 to st do
otv:=otv*ch;
res:=otv;
end;
begin
Writeln('Vvedite m i n: ');
readln(m,n);
for i:=1 to m do
    for j:=1 to n do
    begin
    step(5,i,res1);
    otver:= (res1+i)/j;{ Здесь для i и j надо добавить факториалы. и с типами разобраться.}

    end;

    writeln('Otvet= ',otver);
end.

[exzi11]

Теме up. Плз народ срочно нужно