thực hiện chương trình sau cho kết quả gì var a,b : char; c : real ; d : byte; m : boolean; begin a:='a' ; b := 'a' ; c :15.66; d:= 10; m := not(a=b); writeln(a = b); writeln('2*c+d', 1000:6); writeln(m:6,d mod 15 : 3,' ',d div 2); write(c:4:1, c:8:3, c:4:0); realdn
