Даны n чисел. найдите произведение максимального и минимального из них

uses crt;

var x,i,n,max,min: integer; begin readln(n); read(x); max: =x; min: =x; for i: =1 to n-1 do begin readln(x); if min > x then min: =x; if max < x then max: =x; end; writeln(min,' ',max);

end.

Const nx = 20; mx = 20;   var a: array[1..nx,1..nx] of real; i,j,n,m: integer; sum: real;   begin  write('введите размер матрицы');   read(n);   for i: =1 to n do begin  for j: =1 to n do begin  a[i,j]: = random()*100 -50;   write(a[i,j]: 9: 4);   end;   writeln;   end;   writeln; writeln;   for i: =1 to n do begin  for j: =1 to n do beginif i < j then begin  write(a[i,j]: 9: 4); sum: =sum + a[i,j];   end  else  write(' ': 9);   end;   writeln;   end;   write('сумма = ',sum);   end.

1) var a,b: integer; begin readln(a,b); writeln('сумма единиц: ',a mod 10+b mod 10); writeln('сумма десятков: ',(a div 10) mod 10+(b div 10) mod 10); end. 2)var a: integer; begin readln(a); if a mod 2=0 then writeln('делится на 2') else writeln('не делится на 2'); if a mod 3=0 then writeln('делится на 3') else writeln('не делится на 3'); if a mod 5=0 then writeln('делится на 5') else writeln('не делится на 5'); end. 3)var a,b,c: integer; begin readln(a); c: =a; while a> 0 do begin   b: =10*b+a mod 10;   a: =a div 10; end; writeln(c-b); end.