uses crt;

var x, y, z, a, b : real;

begin

clrscr;

write('nhap gia tri x, y, z :');readln(x, y, z);

a := (10 + 5) / (3 + 1) - 18 / (5 + 1);

b := (x * x) / (3 + y) - (5 + 7) / (8 + y) + z;

writeln('gia tri bieu thuc 1 :', a:3:1);

writeln('gia tri bieu thuc 2 :', b:3:1);

readln

end.

Uses crt;
Var 
    x,y,z: integer;
Begin
    clrscr;
    writeln('Gia tri cua bieu thuc (10+5)/(3+1)-18/(5 + 1) la: ',((10+5)/(3+1)-18/(5+1)):0:1);
    write('Nhap x: '); readln(x);
    write('Nhap y: '); readln(y);
    write('Nhap z: '); readln(z);
    writeln('Gia tri cua bieu thuc (x^2)/(3+y)-(5+7)/(8+y)+z la: ',((x*x)/(3+y)-(5+7)/(8+y)+z):0:1);
    readln;
End.