Очень прошу, помогите пожалуйста

Question

Очень прошу, помогите пожалуйста

---

Answer 1

var

a : array [1..6] of integer;

b : array [1..6] of real;

i : integer;

begin

for i:=1 to 6 do

begin

readln(a[i]);

b[i] := a[i] - 1/ a[i] + 2;

end;

for i:=1 to 6 do

writeln(b[i]);

end.

//PascalABC