Составьте программу выводящую на экран значение любого элемента массива в[10]вещественных чисел по введенному с клавиатуры индекса

Var     ind: longint;     b: array [1..10]  of real; begin     writeln('введите  10  чисел  (элементы  массива): ');     for i : = 1 to 10 do read(b[i]);           write('введите  индекс  эл.  массива:   ');     read(ind);     write(b[ind]); end.

var n, n1, n2, n3, k: integer;

begin readln(n); n1 : = 1; n2 : = 1; n3 : = 2; k : = 0; if (n=1) or (n=2) then k : = 1; while n3 < = n do begin if n3=n then k : = 1; n1 : = n2; n2 : = n3; n3 : = n1 + n2; end; if k = 1 then writeln(n, ' является числом фибоначчи') else writeln(n, ' не является числом фибоначчи'); end.

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

n,i: integer;

begin

  {vvod massiva skopirovat suda}

  for i: = 1 to 10 do begin

      if a[i] mod 10 = 0 then

          n: =n+1;

  end;

  writeln(n);

end.