не могу понять в чем прикол задания(задача сириуса), решите ИСПОЛЬЗУЯ ПИТОН заранее, очень благодарен :) Даны два числа n и m. Создайте массив n×m и заполните его по следующим правилам:

Числа, стоящие в строке 0 или в столбце 0 равны 1 (A[0][j] = 1, A[i][0] = 1).
Для всех остальных элементов массива A[i][j] = A[i-1][j] + A[i][j-1], то есть каждый элемент равен сумме двух элементов, стоящих слева и сверху от него.Вводятся два натуральных числа n и m, не превышающих 100.
Ввод:
3 3
Вывод:
1 1 1
1 2 3
1 3 6

Только степень вводится с клавы:
Var
P:integer;
St:real;
Begin
Write('Показатель степени(целое число) = ');ReadLn(P);
St:=1;
For P:= 1 to P do
    St:=St*2;
WriteLn('2^',P,' = ',St);
End.

Пример:
Показатель степени(целое число) = 4
2^4 = 16

Степень и число вводится с клавы:

Var
P:integer;
St,O:real;
Begin
Write('Показатель степени(целое число) = ');ReadLn(P);
Write('Основание степени(вещественное число) = ');ReadLn(O);
St:=1;
For P:= 1 to P do
    St:=St*O;
WriteLn(O,'^',P,' = ',St);
End.

Пример:

Показатель степени(целое число) = 3
Основание степени(вещественное число) = 2.5
2.5^3 = 15.625

1.
var p:real; i:integer;
begin
write('цена 1 кг конфет = ');
readln(p);
for i:=1 to 10 do writeln(i,' кг - ',i*p:5:2);
end.

Пример:
цена 1 кг конфет = 125.50
1 кг - 125.50
2 кг - 251.00
3 кг - 376.50
4 кг - 502.00
5 кг - 627.50
6 кг - 753.00
7 кг - 878.50
8 кг - 1004.00
9 кг - 1129.50
10 кг - 1255.00

2.
var a,b,p,i:integer;
begin
write('a, b: ');
readln(a,b);
p:=1;
for i:=a to b do p:=p*i;
writeln('p = ',p);
end.

Пример:
a, b: 5 10
p = 151200

3.
var n,i:integer; s:real;
begin
write('n = ');
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s:8:3);
end.

Пример:
n =5
s = 2.283