Вычислите значения функции w=y^2+1/y^2-1 на отрезке [0; 0,5] с шагом 0,1 (составить блок-схему алгоритма и программу для программирования pascal.abc

Var
Y:real;
Begin
Y:=0;
Repeat
WriteLn('W(',Y,') = ',(Y*Y+1)/(Y*Y-1));
Y:=Y+0.1;
Until Y>0.5
End.