program one;
var dx:integer;
s,x1,x2:real;
q:array[1..20] of real;
r:array[1..25] of real;
k:array[1..100] of real;
i:integer;x,qq,kk:integer;
function y(x:real):real;
begin
For i:=1 to 20 do begin
read(q[i]);
if ((q[i]>-1.2)and(q[i]<3.4)) then inc(qq);
end;
For i:=1 to 25 do begin
read(k[i]);
if ((q[i]>2.2) and (q[i]<5.34)) then inc(kk);
end;
if qq<kk then begin
qq:=qq+kk;
kk:=qq-kk;
qq:=qq-kk;
end;
y:=x/(sqrt(exp(x*ln(exp(1)))- exp((-x)*ln(exp(1)))));
End;
begin
assign(output,'output1.txt');
rewrite(output);
i:=kk;
while i<=qq do begin
x1:=y(q[i]+i*dx);
x2:=y(q[i]+i*dx+dx);
s:=s+(x1+x2)/2*dx;
i:=i+dx;
end;
writeln(s);
end.

program Snak3;
var ss,s:string;
n,i,k:longint;
read(n); ТУТ ругается что нет ':' это как? хм, может кто попробует исправить? спасибо, задача считает вида 1!+2!+3!+...+n!
s:=''; ss:='';
for i:=1 to n do
begin
for k:=1 to i do um(s,str(k),s);
sum(ss,s,ss);
end;

program Snak3;

var ss,s:string;
    n,i,k:longint;

procedure um(a,b:string;var c:string);
var n,k,i,j,x,p:integer;
    d:string;
begin
 n:=length(s);
 k:=length(b);
 c:=''; d:=''; p:=0;
 for i:=1 to n+k do d:=d+'0';
 for j:=k downto 1 do
  begin
  p:=0;
  for i:=n downto 1 do begin
  x:=(ord(a[i])-ord('0'))*(ord(b[j])-ord('0'))+p+ord(d[i+j])-ord('0');
  d[i+j]:=chr((x mod 10)+ord('0'));
  p:=x div 10;
                        end;
  d[j]:=chr(ord(d[j])+p);
  end;
 i:=1;
 n:=length(d);
 while (d[i]='0') and (i<n) do inc(i);
 for k:=i to n do c:=c+d[k];
end;

procedure sum(a,b:string;var c:string);
var x,i,p,n,k:integer;
begin
 n:=length(a);
 k:=length(b);
 p:=0;
 c:='';
 if n<k then begin
 for i:=n+1 to k do
 a:='0'+a;
             end else
 begin
 for i:=k+1 to n do
 b:='0'+b; end;
 n:=length(a);
 for i:=n downto 1 do
  begin
  x:=ord(a[i])-ord('0')+ord(b[i])-ord('0')+p;
  c:=chr((x mod 10)+ord('0'))+c;
  p:=x div 10;
  end;
 if p<>0 then
 begin
  inc(n);
  c:='1'+c;
 end;
end;


begin
write('Enter n');
readln(n);
ss:='';
for i:=1 to n do begin
 s:='1';
 for k:=1 to i do   um(s,str(k),s);
 sum(ss,s,ss);
                 end;
writeln('1!+2!+3!+..+n!=',ss);
read(n);
end.

x1:=round(y(q+i*dx));