uses crt;
var a,b:integer;
begin
clrsct;
write('nhap so hoc sinh lop 8/1 : ');readln(a);
write('nhap so hoc sinh lop 9/1 : ');readln(b);
if a>b then writeln('hoc sinh lop 8/1 nhieu hon hoc sinh lop 9/1');
if a<b then writeln(hoc sinh lop 8/1 it hon hoc sinh lop 9/1')
esle
write('số hoc sinh 2 lop bang nhau');
readln;
end.