program pr1; const n=5; var B,A:array [1..n] of integer; min:integer; k,i:byte; begin writeln ('enter ',n,' elementov massiva a'); for i:=1 to n do read(a[i]); min:=a[1];k:=1; for i:=2 to n do if min>a[i] then begin min:=a[i]; k:=i; end; for i:=k+1 to n do writeln (b[i],' '); end.