var x,y,s: real;
begin;
Readln(x,y);
S:=(3*x*x*x*y-1/2*x*x+1/5*x*y)*6*x*y*y*y;
Write ('Tong gia tri =' , s:2:1);
Readln;
End.
Program CT_2;
Uses Crt;
Var x, y, P: Integer;
Begin
Clrscr;
Writeln('Nhap x, y = ');
Readln(x,y);
P:= (3*x*x*x*y - 1/2*Sqr(x) + 1/5*x*y)*6*x*y*y*y;
Writeln('Vay tich cua bieu thuc la = ',P:0:1);
Readln;
End.