Type Matrix = array[1..10,1..10] of integer;
var
M,N,K,j:integer;
A:Matrix;

Function SumCol(A:Matrix; M:integer; N,K:integer):Real;
var
j,Sum:integer;
begin
Sum:=0;
if K<=N then
for j:=1 to N do
Sum:=Sum+A[j,k];
SumCol:=Sum;
end;

Procedure EnterMatrix(var B:Matrix; var M,N:integer);
var j,j2:integer;
begin
Write('M: ');
Readln(M);

Write('N: ');
Readln(N);

for j:=1 to N do
begin
for j2:=1 to M do
begin
Write (' ',J2,':',J,' : ');
Read (B[J2,J]);
end;
Writeln;
end;
end;

begin
EnterMatrix(A,M,N);

for j:=1 to 3 do
begin
Write('K: ');
Readln(K);
Writeln(SumCol(A,M,N,K));
end;
end.
перевестите в паскал на питон

а) 16 = 1- 16 16 = 2-8 16 = 4-4 16 = 8-2 16 = 16-1
б) 36 = 1 • 36 36 = 2- 18 36 = 3-12 36 = 4   9
36 = 6-6
36 = 9 * 4 36 = 12-3 36 = 18-2 36 = 36-1
в) 64 = 1 - 64 64 = 2•32 64 = 4- 16 64 = 8 • 8
64 = 16-4 64 = 32 • 2 64 = 64 • 1
1 + 16 = 17
2 + 8 = 10
4 + 4 = 8
8 + 2 = 10 16 + 1 = 17
1 + 36 = 37
2 + 18 = 20
3 + 12 = 15
4 + 9 = 13 6 + 6=12
9 + 4 = 13 12 + 3 = 15 18 + 2 = 20 36 + 1 = 37
1 + 64 = 65
2 + 32 = 34 4 + 16 = 20 8 + 8=16
16 + 4 = 20 32 + 2 = 34 61 + 1 = 62
ГИПОТЕЗА: наименьшая сумма получается при сложении равных множителей.

Представляем каждое число в виде произведения двух множителей, находим сумму его множителей и сравниваем суммы.

16 = 1 x 16, 1 + 16 = 17
16 = 2 x 8, 2 + 8 = 10
16 = 4 x 4, 4 + 4 = 8 – наименьшая

36 = 1 x 36, 1 + 36 = 37
36 = 2 x 18, 2 + 18 = 20
36 = 3 x 12, 3 + 12 = 15
36 = 4 x 9, 4 + 9 = 13
36 = 6 x 6, 6 + 6 = 12 – наименьшая сумма

64 = 1 x 64
…
…
…
64 = 8 x 8, 8 + 8 = 16 – наименьшая сумма

Гипотеза: если число представить в виде произведения двух множителей, то сумма множителей будет наименьшей в том случае, когда множители равны. На основании трех примеров нельзя утверждать, что для всех чисел гипотеза верна.