var a,b : real ;
begin
write('nhap diem cua a'); readln(a);
write('nhap diem cua b'); readln(b);
if a>b then write('ban a nhieu diem hon ban b');
if a<b then write('ban b nhieu diem hon ban a');
if a=b then write('ban a va ban b co diem bang nhau');
readln
end.
var a,b : real ;
write('nhap diem cua ban a'); readln(a);
write('nhap diem cua ban b'); readln(b);
if a>b then write('a nhieu diem hon b') ;
if a<b then write('b nhieu diem hon a');
if a=b then write('hai ban co diem bang nhau');
readln
end.