program Project1;
 
{$APPTYPE CONSOLE}
 
VAR mas : array [1..6] of Integer;
    i, z : Byte;
    min, m : Integer;
 
BEGIN
Writeln ('Programma 3');
Randomize;
  FOR i := 1 To 6 Do
   BEGIN
     Mas[i] := Random(10) - 5;
     Write (mas[i],' ');
   END;
   Min := mas[1];
   FOR i := 2 To 6 Do
     IF mas[i] < Min Then
       BEGIN
         Min := mas[i]; z := i;
       END;
   Writeln;
   Writeln ('min = ', min, ' Nomer = ', z);
M := mas[3]; mas[3] := mas[z]; mas[z] := M;
FOR i := 1 To 6 Do Write (mas[i],' ');
Readln;
END.