Nulante is anything but difficult to believe that any cream that you lift up off the rack will work for you. yet, it's somewhat more than that. along these lines, we realize that you need to ward off the indications of maturing, so we'll concentrate generally on that and hydration. here are a couple of the things that you should think about. these are a portion of the things that we think nulante anti aging formula can improve the situation you! click here

Const nx=20;var i,j,n:integer; D:array[1..nx,1..nx] of integer;pG,pP:double;m:boolean;begin
write('Введите размер массива n');Readln(n);pG:=1;pP:=1;
for i:=1 to n do begin
for j:=1 to n do begin
Readln(D[i,j]);//D[i,j]:= random(35)-15;end;end;writeln;
for i:=1 to n do beginfor j:=1 to n do begin
write(D[i,j]:4);end;writeln;end;writeln;
for i:=1 to n do begin
for j:=1 to n do begin
if i < n-j+1 then begin write(D[i,j]:4); pP:= pP * D[i,j];end else write(' ':4);end;writeln;end;writeln;
for i:=1 to n do begin
for j:=1 to n do begin 
if i <j then begin write(D[i,j]:4); pG:= pG * D[i,j];end else
write(' ':4);end;writeln;end;writeln;
writeln('произведение элементов массива над главной диагональю  =',pG);writeln('произведение элементов массива над побочной диагональю  =',pP);if pG = pP then m:= true
else m:= false;writeln('Высказывание =', m);end.

Var
  a: Array[1..100,1..100] of Integer;
 n,p1,p2, i,j: Integer; 
r:boolean;
BEGIN
writeln('n=');
readln(n);

Writeln('vvedite massiv:');
For i:=1 to n do
begin
  For j:=1 to n do
 begin 
read(a[i,j]); 
 end; 
 Writeln; 
  end; 
  r:=true; 
p1:=1; 
p2:=1; 
for i:=1 to n do 
for j:= 1 to n do
  if i + j < n + 1 then
p1:=p1*a[i,j]; 
for i:=1 to n do
 for j:= 1 to n do 
if i<j then
 p2:=p2*a[i,j]; 
 if p1=p2 then
 r:=true
 else 
r:=false; 
writeln('В данной матрице произведение элементов, стоящих над побочной диагональю, равно произведению элементов, стоящих над главной диагональю=',r);
 readln;
 end.