viết chương trình tính giá trị các biểu thức sau ( test kết quả với x=2 ; y=3) .Làm tròn tới 2 chữ số thập phân 1. 2x2y-(3+x) 2. xy2+1/2xy-2 giúp mình với

program tinh;

uses crt;

var x, y : integer;

begin

clrscr;

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

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

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

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

readln

end.

program tinh;
uses crt;
var x,y:integer;
Begin
    clrscr;
    write('Nhap x: ');readln(x);
    write('Nhap y: ');readln(y);
    writeln('1. 2x.2y-(3+x) = ',2*x*2*y-(3+x):2);
    write('2. xy^2+1/2xy-2 = ',x*y*y+1/(2*x*y)-2:2:2);
    readln
End.