Дан двумерный массив размерностью n*m. заменить все отрицательные элементы на противоположные составить программу для паскаля

program a1; uses crt; const n=8; m=8; var a: array[1..n,1..m] of integer; i,j: byte; begin writeln('исходная матрица'); for i: =1 to n do begin writeln; for j: = 1 to m do begin a[i,j]: =random(101)-50; write(a[i,j],' '); end; end;

writeln; writeln('отредактированная матрица'); for i: =1 to n do begin writeln; for j: = 1 to m do begin if a[i,j]< 0 then a[i,j]: =abs(a[i,j]); write(a[i,j],' '); end; end; end.

const nn=50; vara: array [1..nn,1..nn] of integer; i,j,m,n: integer; begin  write('введите n: ');   readln(n);   write('введите m: ');   readln(m);   for i: = 1 to n do      for j: = 1 to m do          readln(a[i,j]);   for i: = 1 to n do      for j: = 1 to m do          if a[i,j]< 0 then a[i,j]: =abs(a[i,j]);   for i: = 1 to n do  begin      for j: = 1 to m do          write(a[i,j],' ');       writeln;   end;   end.

Дело в том, что факториал числа представляет собой довольно большое значение, которое не влазит в ячейку real,  если вводить даже не большие числа. для чисел, не превышающих 170: uses crt; var f: real;     x,n: integer; begin       f: =1;       write('n='); readln(n);       if n< 0 then writeln('error! ') else       if n=0 then writeln('n! =',1)      else begin           for x: =2 to n do               f: =f*x;           writeln('n! =',f); end;     readln; end.

Program bb; uses crt; var s,a,b,v,z,i: longint; begin s: =1; {учитываем билет с номером 000000} for i: =1 to 999999 do {перебираем билеты от 000001 до 999999} begin     v: =i;     z: =0;     while z< 3 do   begin z: =z+1; a: =v mod 10 +a; v: =v div 10 end; {считаем сумму последних трех чисел}     while z< 6 do   begin z: =z+1; b: =v mod 10 +b; v: =v div 10 end; {считаем сумму первых трех чисел}     if a=b then s: =s+1;     a: =0;     b: =0; end; writeln(s); readkey; end.