Определите логическое значение выражения

// pascalabc.net 3.2, сборка 1417 от 28.03.2017// внимание! если программа не работает, обновите версию! function sumd(k: integer): integer; begin  result: =0;   while k> 0 do (result,k): =(result+k mod 10,k div 10)end; function good(k,s: integer): boolean; begin  var p: =1;   while k> 0 do (p,k): =(p*(k mod 10),k div 10);   result: =p=send; begin  var n: =readinteger('n=');   var s: =sumd(n);   range(1,n-1).where(n-> good(n,end. пример n= 44 8 18 24 42

Var    matrix: array[1..5,1..5] of integer;     i, j: integer;   sg: =0;   sp: =0; begin    writeln ('введите 25 чисел: ');       for i : = 1 to 5 do        for j : = 1 to 5 do            read (matrix[i,j]);       for i : = 1 to 5 do begin        for j : = 1 to 5 do            write (matrix[i,j], ' ');         writeln    end;   for i: =1 to 5 do  begin    for j: = 1 to 5 do    if j=i then sg: =sg+matrix[i,j];   end;   for i: =5 downto 1 do    begin    for j: =1to 5 do    if (i+j)=6 then sp: =sp+matrix[i,j]    end;     sp: =sp-matrix[3,3]; 1  writeln(sg,' ',sp); readln end.