Помогите информатика 9класс

const   n=5; var   a,b:array[1..n] of real;   i:integer; begin   Write('Введите 5 чисел: ');   for i:=1 to n do Read(a[i]);   for i:=5 downto 1 do Write(a[i],' ');   Writeln;   for i:=1 to n do begin     b[i]:=1/a[i];     Write(b[i],' ')     end;   Writeln end. Пример Введите 5 чисел: 14 2.7 -6 0.75 0.5 0.5 0.75 -6 2.7 14 0.0714285714285714 0.37037037037037 -0.166666666666667 1.33333333333333 2