var a: array [1..10] of real;

i: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i, ' элемент массива: ');

       readln(a[i]);

   end;

   writeln('С клавиатуры: ', a);

   for i := 1 to 10 do

   begin

       a[i] := random(-5,5);

   end;

   writeln('Случайными числами: ', a);

   for i := 1 to 10 do

   begin

       a[i] := i + sin(i);

   end;

   writeln('По формуле: ', a);

end.