uses crt;
var a,b,c:integer;
begin
clrscr;
write('so phieu ban An la: ');readln(a);
write('so phieu ban Binh la: ');readln(b);
write('so phieu ban Chi la: ');readln(c);
if (a>b) and (a>c) then write('ban An trung cu');
if (b>a) and (b>c) then write('ban Binh trung cu');
if (c>a) and (c>b) then write('ban Chi trung cu');
if (a=c) or (b=c) or (a=b) and (a=c) then
write('bau chon lai');
 
  readln;
end.

Mình hơi non tay nên chương trình có hơi dài, bạn thông cảm nhé!