C8:
Var a,b: real;
Begin
        Write('Nhap vao 2 so thuc');
        Readln(a,b);
        If (a>b) then Writeln('a la so lon')
        Else Write('b la so lon');
        Readln
End.
C9: 
a) (sqr(x)+y)/(sqr(y)+x);
b) (2*2*2*2*2+4)*6;
c) a/b + 2/(c+d) - 1/(2*a);
d) 2/(x+y) - sqr(x+y)*(x+y);
C10: c=0
C11: c = 7
C12: c=-1

8.

var a, b: real;

begin

              write('Nhap vao 2 so thuc');

              readln(a,b);

              if (a>b) then writeln('a la so lon hon')

              else writeln('b la so lon hon');

              readln

end.

9.

a. (x*x+y)/(y*x+x)

b. (2*2*2*2*2+4)*6

c. a/b+2/(c+d)-1/2*a

d. 2/(x+y)-sqr(x+y)*(x+y)

10.

c = 0

11.

c = 7

12.

c = -1