Program bangdiembongdabynhan;

Uses crt;

Var A,B:Real;

Th,H,T:Integer;

Begin

 Clrscr;

Write('So diem doi bong A la:');Readln('A');

Write('So diem doi bong B la:');Readln('B');

If A>=3 then writeln('Doi bong A vo dich')

Else writeln('Doi bong A thua');

If B>=3 then writeln('Doi bong B vo dich')

Else writeln('Doi bong B thua');

Readln();

End.

uses crt;
var n,i,max,min:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write('So doi bong: ');readln(n);
   max:=1; min:=1;
   for i:=1 to n do
      begin
         write('Diem cua doi bong ',i,': ');readln(a[i]);
         if a[i]>a[max] then max:=i;
         if a[i]<a[min] then min:=i;
      end;
   for i:=1 to n do writeln('Diem cua doi ',i,': ',a[i]);
   writeln('Doi vo dich: ',max);
   writeln('Doi co it diem nhat: ',min);
readln
end.