Напишите программу для скретч​

//более простым языком const   maxn = 100; type   myarr = array [1..maxn, 1..maxn] of longint; var   a: myarr;   n, m, i, j, sum, ini, max: longint; begin   readln(n, m);   max : = 0;   for i : = 1 to n do begin     sum : = 0;     for j : = 1 to m do begin       read(a[i, j]);       sum : = sum + abs(a[i, j]);     end;     if (sum > max) then begin       ini : = i;       max : = sum;     end;   end;   writeln(ini); end.

1) var   pr: real;   i: integer; begin   pr : = 1;   for i : = 40 to 160 do     if (i mod 2 < > 0) then       pr : = pr * i;   writeln(pr); end. 2) var   i, sum: longint; begin   sum : = 0;   for i : = 1500 to 3000 do     if (i mod 150 = 0) then       inc(sum, i);   writeln(sum); end. 3) var   kolvo, i: longint; begin   kolvo : = 0;   for i  : = 2510 to 7000 do     if (i mod 17 = 0) then       inc(kolvo);   writeln(kolvo); end.