X^2+a^3-5y преобразуйте примеры записи выражений

x²+a³-5*y = sqr(x)+sqr(a)*a-5*y;

sqr - возведение в квадрат.

Var   a: array[1..4,1..4]of integer;   i, j,s: integer; begin   s : = 0;   for i : = 1 to 4 do begin       for j : = 1 to 4 do begin       write('a[',i,',',j,'] = ');           readln(a[i,j]);       end;   end;   for  i: =2 to  4 do     for  j: =1 to i-1 do s: =s+a[i,j];     writeln('сумма элементов под главной диаганалью',s);   end.

1)var a: array[1..4,1..4] of integer;       i,j,s: integer; begin       for i: =1 to 4 do           for j: =1 to 4 do                  readln(a[i,j]);                       for i: =1 to 4 do begin                        writeln();                       for j: =1 to 4 do begin                        write(a[i,j],'  ');                       if (i+j> 5) then s: =s+a[i,j];                           end;                   end; writeln(); write(s); end. 2)var a: array[1..4,1..4] of integer;       i,j,s: integer; begin       for i: =1 to 4 do           for j: =1 to 4 do                  readln(a[i,j]);                       for i: =1 to 4 do begin                        writeln();                       for j: =1 to 4 do begin                        write(a[i,j],'  ');                       if (i> j) then s: =s+a[i,j];                           end;                   end; writeln(); write(s); end.