type a=array[0..99] of integer; var ar:a; i, max : integer; ans, rans:(*boolean*)integer; begin randomize; max:=0; ans:=0; rans:=0; for i:=0 to 99 do begin ar[i]:=0; end; for i:=0 to 99 do begin if random(10001) in ar[i] then ar[i]:=random(10001); if ar[i]> max then max:=ar[i]; end; i:=0; while ( (i<99) and (ans<1) and (rans<1)) do begin writeln(ar[i]); readln(ans); if ar[i]