Людиии сделать инфу, очень ​

{12. Дан массив А(3*4). Найти сумму первых отрицательных элементов в каждом столбце.}

uses crt;
const N=3;
         M=4;
var a: array [1..N,1..M] of real;
     x,y:integer;
     min,sum:real;
begin
     sum:=0;
     for x:=1 to N do begin
         for y:=1 to M do begin
             a[x,y]:=random(10)-5;
             write(a[x,y]:3:0);
         end;
     writeln;
     end;
     writeln;
     for y:=1 to M do begin
         min:=0;
         for x:=N downto 1 do
             if a[x,y]<0 then min:=a[x,y];
             sum:=sum+min;
     end;
     writeln;
     writeln('Сумма первых отрицательных элементов в каждом столбце: ',sum);
end.

---
{13. Даны два массива А(3*3) и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.}

uses crt;
const N=3;
var a,b: array [1..N,1..N] of integer;
     x,y,sum1,sum2: integer;
begin
     sum1:=0; sum2:=0;
     for x:=1 to N do begin
         for y:=1 to N do begin
             a[x,y]:=random(10);
             if x=y then sum1:=sum1+a[x,y];
             write(a[x,y]:3); 
        end;
     writeln;
     end;
     writeln;
     for x:=1 to N do begin
         for y:=1 to N do begin
             b[x,y]:=random(10);
             if x=y then sum2:=sum2+b[x,y];
             write(b[x,y]:3);
         end;
     writeln;
     end;
     if sum1<>sum2 then begin
     writeln('Сумма элементов главной диагонали меньше в массиве: ');
     for x:=1 to N do begin
         for y:=1 to N do
             if sum1>sum2 then write(b[x,y]:3)
             else write(a[x,y]:3);
         writeln;
     end;
     end;
     if sum1=sum2 then writeln('Сумма элементов главной диагонали одинакова');
end.

---
{17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.}

uses crt;
const N=3;
         M=4;
var a: array [1..N,1..M] of real;
     x,y:integer;
begin
     for x:=1 to N do begin
         for y:=1 to N do begin
             a[x,y]:=random(10)-5;
             write(a[x,y]:3:0);
             if a[x,y]<0 then a[x,y]:=-a[x,y];
         end;
     writeln;
     end;
     writeln;
     for x:=1 to N do begin
         for y:=1 to N do
             write(a[x,y]:3:0);
     writeln;
     end;
end.

Program p1;
uses crt;
var a,ed,des,sot,tis,s,p,max:longint;
begin
clrscr;
writeln('введите четырех значное число');
readln(a);
ed:=a mod 10;
des:=a div 10 mod 10;
sot:=a div 100 mod 10;
tis:=a div 1000;
s:=0; p:=1;
p:=ed*des*sot*tis;
s:=ed+des+sot+tis;
writeln('Произведение чисел = ',p);
writeln('Сумма чисел = ',s);
if (ed>des) and (ed>sot) and (ed>tis) then max:=ed;
if (des>ed) and (des>sot) and (des>tis) then max:=des;
if (sot>ed) and (sot>des) and (sot>tis) then max:=sot;
if (tis>ed) and (tis>des) and (tis>sot) then max:=tis;
writeln('Максимальное число = ',max);
readln;
end.