Program baitap;

Uses crt;

Var x,y:integer;

Begin

Clrscr;

x:=3;

y:=2;

Writeln('x+5*x*y-3*y+12=',x+5*x*y-3*y+12);

Writeln('x+x*y*y*y-3*x*y+y*y=',x+x*y*y*y-3*x*y+y*y);

Writeln('(7*x+5*y)/(4*x-3*y)-(6*y)/(5+3)=',(7*x+5*y)/(4*x-3*y)-(6*y)/(5+3));

Writeln('sqr(x+y)/(3+2)-(5+x)/6+(x*x*x+2*x*y*y)/2=',sqr(x+y)/(3+2)-(5+x)/6+(x*x*x+2*x*y*y)/2);

Readln

End.

program tinh;
uses crt;
var x,  y : integer;
begin
clrscr;

write('nhap so nguyen x :');readln(x);

write('nhap so nguyen y :');readln(y);

writeln('gia tri bieu thuc cau a la :', x + 5*x*y - 3*y + 12);

writeln('gia tri bieu thuc cau b la :', x + x*y*y - 3*x*y + y*y );

writeln('gia tri bieu thuc cau c la :', ((7*x + 6*y)/(4*x - 3*y)) - ((6*y)/(5+3)));

writeln('gia tri bieu thuc cau d la :', ((sqr(x+y)/(3+2)) - (5+x)/6 + (sqr(x) + 2*x*sqr(y))/2));

readln

end.