Площадь и гипотенуза прямоугольного треугольника.

uses crt;
const n=12; m=12;
var
c: array[1..n,1..m] of real;
i,j,imin,jmin: integer;
 
begin
writeln('Дана матрица');
imin:=1; jmin:=1;
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        c[i,j]:= Arctan((0.01*i)/Sqrt(1-sqr(0.01*i)))+(j*sin(5.3*j));
        write(c[i,j]:6:2);
        if c[i,j]<c[imin,jmin] then
           begin
           imin:=i;
           jmin:=j;
           end;
        end;
    writeln;
    end;
writeln('Мин. эл. =',c[imin,jmin]:7:2,', в строке ',imin,', в столбце ',jmin);
end.

uses crt;
const
e=2.7182818284590452;
var
a: array[1..5,1..6,1..4] of real;
i,j,k: integer;
s,n1: real;
begin
writeln('Дана матрица: ');
 for i:=1 to 5 do begin
     for j:=1 to 6 do begin
       for k:=1 to 4 do begin
       a[i,j,k]:=k*cos(j+4)+ Exp(sin(i)*Ln(Abs(e)));
       write(a[i,j,k]:8:2);
       if (a[i,j,k]>=0) and (a[i,j,k]<=5) then
       s:=s+(a[i,j,k]);
       n1:=n1+1;
      end;
     end;
    end;
   writeln;
  writeln('Сумма полжительных элементов массива: ',s:1:3);
 writeln('Кол-во элементов массива в диапозоне [0,5]: ',n1);
end.

uses crt;
var
a: array [1..5,1..4] of real;
i,m: integer;
s: real;
begin
for i:=1 to 5 do begin
for m:=1 to 4 do begin
a[i,m]:=m*sin(3.2*i);
write(a[i,m]:16:2);
s:=s+a[i,m];
end;
end;
if s<100 then begin
writeln;
writeln('В массиве есть столбцы, сумма элементов которых меньше 100')
end
else write('В массиве нет столбцов, сумма элементов которых меньше 100');
end.

s:=s+a[i,m];

uses crt;
var
a: array[1..5,1..6,1..4] of real;
i,j,k: integer;
s,n1: real;
begin
writeln('Дана матрица: ');
 for i:=1 to 5 do begin
     for j:=1 to 6 do begin
       for k:=1 to 4 do begin
       a[i,j,k]:=k*cos(j+4)+ Exp(sin(i));
       write(a[i,j,k]:8:2);
       if (a[i,j,k]>=0) and (a[i,j,k]<=5) then
          begin
          s:=s+(a[i,j,k]);
          n1:=n1+1;
          end;
      end;
     end;
    end;
   writeln;
  writeln('Сумма полжительных элементов массива: ',s:1:3);
 writeln('Кол-во элементов массива в диапозоне [0,5]: ',n1);
end.

uses crt;
var
a: array [1..10,1..10] of real;
i,j,k: integer;
s: real;
begin
for i:=1 to 10 do
    begin
    for j:=1 to 10 do
        begin
        a[i,j]:=j*sin(3.2*i);
        write(a[i,j]:16:2);
        end;
    writeln;
    end;
for j:=1 to 10 do
    begin
    s:=0;
    for i:=1 to 10 do
        s:=s+a[i,j];
    if s<100 then
       begin
       inc(k);
       writeln('в ',j,' столбце сумма элементов ',s);
       end;
    end;
if k=0 then writeln('Нет столбцов, в которых сумма элементов <100')
   else writeln ('Всего в ',k,' столбцах сумма элементов <100');
end.

uses crt;
var s,s1,s2,s3: string;
 i,j,dva,dva2,dva3,otv,otv2,otv3,ost,des,n,l: integer;
 m:array [1..99] of integer;
 flag: boolean;
 summa: integer;
 begin
 s1:='11110000';
 for i:=1 to length(s1) do
 if strtoint(s1[i])>0 then
 begin
 dva:=1;
 for j:=1 to length(s1)-i do
 dva:=dva*2;
 otv:=otv+dva;
 end;
    begin
 s2:='1111000';
 for i:=1 to length(s2) do
 if strtoint(s2[i])>0 then
 begin
 dva2:=1;
 for j:=1 to length(s2)-i do
 dva2:=dva2*2;
 otv2:=otv2+dva2;
 end;
     begin
 s3:='11100';
 for i:=1 to length(s3) do
 if strtoint(s3[i])>0 then
 begin
 dva3:=1;
 for j:=1 to length(s3)-i do
 dva3:=dva3*2;
 otv3:=otv3+dva3;
 end;
 end;
 end;
  summa:=(otv+otv2) div otv3;
 begin
 flag:=true;
 while flag=true do
 begin
 l:=summa div 2 ;
 s:=s+inttostr(summa-l*2);
 summa:=l;
 if summa<1 then flag:=false;
 end;
 write('Ответ: ');
 for summa:=Length(s) downto 1 do
 write(s[summa]);
 end;
 end.