program labo7;
var A,B,Y:integer;
begin
 write('A,B?:'); read(A,B);
 asm
 mov ax,A
 imul ax
 imul B
 mov bx,3
 imul bx
 mov si,ax
 mov ax,A
 imul B
 imul B
 imul B
 mov bx,5
 imul bx

 add ax,si

 mov di,ax
 mov ax,A
 imul ax
 push ax
 imul ax
 mov bx,2
 imul bx
 inc ax
 XCHG di,ax
 cwd
 idiv di
 mov Y,ax
end;
writeln ('Result:',3*sqr(A)*B+5*A*exp(3*ln(B)) div 2*sqr(sqr(A))+1 , ',Y= ',Y) ;
end.