... =( 3,4 , 6,8 , 9,1 0); VAR J2,It1,It2,Pm,Me,TG,Kttoc,Kgtoc ,Mw,wo,ne,jm :real; We,Wsc,P1,P2,Wk,Vm,wbd : extended; Mt,MWe,MWsc,MMe,MMp,MMc,k1,tks,MVm,Mwbd : Real; X,Y,x3,y3,k,YMc,ok,kso,Kso2 ... =( 3,4 , 6,8 , 9,1 0); VAR J2,It1,It2,Pm,Me,TG,Kttoc,Kgtoc ,Mw,wo,ne,jm :real; We,Wsc,P1,P2,Wk,Vm,wbd : extended; Mt,MWe,MWsc,MMe,MMp,MMc,k1,tks,MVm,Mwbd : Real; X,Y,x3,y3,k,YMc,ok,kso,Kso2 ... VE(1,MMe ,SM,Y0 ,1 ,& apos;Me&apos ;); VE(2,MMc ,SM,Y0 ,1 ,& apos;Mc&apos ;); VE(3,MWe ,SW,YWe, 1,& apos;We&apos ;); VE(4,MWsc,SW,Y0 ,1 ,& apos;Wsc&apos ;); VE(5,MWbd,SW,Y0 ,1 ,& apos;Wbd&apos ;); ...