Kết quả bầu ban cán sự lớp cho biết bạn An có p phiếu bạn bình có q phiếu bạn quang có r phiếu. Ai cao phiếu nhất sẽ làm ban cán sự. Nếu có 2 bạn cùng đạt số phiếu cao nhất thì sẽ bầu lại viết chương trình xác định tên bạn sẽ làm ban cán sự hoặc thông báo bầu lại. ( Viết chương trình pascal theo cấu trúc rẽ nhánh)

program nho;
uses crt;
var p, q, r : integer ;
begin
clrscr;
write('nhap so phieu cua ban An  :');readln(p);
write('nhap so phieu cua ban Binh  :');readln(q);
write('nhap so phieu cua ban Quang :');readln(r);
if (p > q) and ( p > r) then writeln('An duoc bau lam ban can su lop ');
if (q > p) and ( q > r) then writeln('Binh duoc lam ban can su lop ');
if (r > q) and ( r > p) then writeln('Quang duoc lam ban can su lop  ');

if ((q = p) or (q = r) or ( p = r)) then writeln('bau lai');
readln
end.