var
 massiv : array [1..10] of integer;
begin
 writeln('Введите элементы массива (10 целых чисел) в одной строке и нажмите (Enter)');
 for i:=1 to 10 do 
  read(massiv[i]);