C1:
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.
C1:
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);
C2: c=0
C3: c = 7