Program vitjok;
uses crt;
const n=10;
Type Tvect=array [1..n] of integer;
var arifmet,Vmax,Vmin,i:integer;
    vec:Tvect;
Function Arif(nn:integer; AA:Tvect):integer;
   var i,min1,min2,max1,n,max2:integer;
 begin
   max1:=AA[1];
   for i:2 to nn do
    if (AA[i]<max1)
     then max2:=AA[i];
    min1:=AA[1];
    
for i:=2 to nn do
    if (AA[nn-i+1]>min1)
     then min2:=AA[nn-i+1];
arif:=(min2..max2)/n;
end;
begin
 Randomize;
 Writeln('Diapozon slych chisel');
 Write('Vmin=');
 readln(Vmin);
 Write(Vmax=);
 readln(Vmax);
 
 For i:=1 To n Do
    vector[i]:=Random(v_max-v_min + 1) + v_min;
Writeln;

 WriteLn;
  WriteLn('ishodn vectr:');
  For i:=1 To n Do
    Write(vector[i]:4);
  WriteLn;