Написать решение предложенной задачи на Visual Prolog

[katyawapka]

с pascal на visual prolog

var x,y:real;
       begin
         x:=1; y:=0.4;
         while abs(y-x)>=0.05 do begin
                               y:=x; x:=(2-x*x)/5;
                                 end;
         write(y);
         end.

Помогите пожалуйста. Не могу понять как с циклом пока быть...