Написать программу для Паскаль
С использованием цикла 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.