UNIT REWOB;
INTERFACE
CONST ifm=100; klm=50; kmy=20;
zw1='*------------------------------------------------------------------------*';
zw2='|------------------------------------------------------------------------|';
zw3='| |';
TYPE tipf=array[1..ifm]of real;
TYPE tipy=array[1..kmy]of real;
TYPE tipl=array[1..klm]of real;
VAR zbnm,qobm,qem,qgm,r420e,v1,rtcm,MNBH2,RN2M,
cgf,cpf,vem,vgm,v61m,plem,plgm,vtm,reem,regm,qemg,qgmg,vbng,mbnm,egm,vtg,veg:tipl;my:tipy;
k2m,f,f1,toi,r420,rmy,k,yc,xc:tipf;
inpfl,outfl:text;
r4tn,r4tq,zbn,dbn,qq,qqc,qnc,dn1,u,vq,rq,fotdp,eg1,eg2,eb1,eb2,xga,gh2,
VNBH2,ZNBH2,QNBH2,QCMBH2,tagbh2,rqbx,k2bx,
xlgq,xlgn,xlg,xtg,glgn,gtgn,rn,mn,vnz,qb,bib,qp,utr,xb,qnpbix,QPBIX,I3BIX,
qcmi,mcmi,mqi,qni,rocmi,
em,vbnm,qob,moct,wcm,r4tcm,t,fb,p,lo,gob,fr,qnp,i3,eb,eg,
glgnp,gtgnp:real;
koltab,if1,iy,n2,n5,nnm,jb:integer;
function pow(a,b:real):real;
IMPLEMENTATION
function pow;
begin
pow:=exp(b*ln(a));
end;
end. |