Code của chương trình phần tự luận:
program Min;
uses crt;
var k,a,b:integer;
begin
clrscr;
writeln('Nhap k: '); readln(k);
a:=k div 10;
b:=k mod 10;
if a>b then writeln('Chu so hang chuc lon hon')
else writeln('Chu so hang don vi lon hon');
readln
end.
Bạn tham khảo nhá :D