Var a:aray[1..10] of integer;
min1,min2,min3:integer;
i:byte;
BEGIN
min1:=32000;
min2:=32000;
min3:=32000;
For i:=1 to 10 do
begin
write('Nhap A[',i,']: ');readln(a[i]);