Написать программу для Паскаль
С использованием цикла while для нахождения y=1/x +x для x 1 до 10 с шагом 2
ПОМОГИТЕ ПОЖ

var    x: integer;    y: real;begin  x := 1;  while x <= 10 do    begin        y := 1 / x + x;        x:= x+2;     end;  write(y:2:2);end.