Составте программу табулирования функции y=1/x^2 с шагом 0,5 и интервал -5

{Составте программу табулирования функции  y=1/x^2 с шагом 0,5 и интервал -5<x<7}
const
    max_x = 7;
    min_x = -5;
    d_x = 0.5;

var
    x, y: real;

begin
    x := min_x;
    while(x < max_x) do
    begin
        if(x <> 0) then
            y := 1 / (x * x)
        else y := 0;
        writeln('x=', x:2:1, ' y=', y:2:5);
        x := x + d_x;
    end;
end.