Напечатайте таблицу значений функции y=1\x^2 при изменении х от 10

program zz1;

var x, y:real; // задаем переменные не целого типа

begin

x:= -10; // задаем начальное значение для переменной х

while x lt;= 10 do // организуем цикл, в котором переберем все числа от минус 10 до 10 через единицу

begin

y:=1 / sqr(x); // вычисляем значение функции по данной формуле

writeln( для , x, вычисленное значение функции y = , y:5:5); // выводим ответ в столбец в формате 5 символов для всего числа и пять символов после точки

x:=x + 1; // увеличиваем х на единицу

end;

end.