Как то так:

program CalculateY;

var

 x, y: real;

begin

 writeln('Введите значение x:');

 readln(x);

 if x > 0 then

 begin

   y := 1 / sqr(x);

 end

 else

 begin

   y := x / 6;

 end;

 writeln('Значение y: ', y);

end.