Напечатать таблицу значений функции - Pascal

Формулировка задачи:

Напечатать таблицу значений функции для значений x от 1 до 20 с шагом 2.

var 
    x, y: real;
begin
    x := 1;
    writeln(' x      y  ');
    while x <= 20 do begin
        y := 20 - (1/(x*x));
        writeln(x:4:1,' | ',y:5:2);
        x := x + 2
    end;
end.

Решение задачи: «Напечатать таблицу значений функции»

Листинг программы

var x:integer;
    y: real;
begin
x := 1;
writeln('   x       y  ');
while x <= 20 do
  begin
   y := 1/(x*x);
   writeln(x:4,' | ',y:8:5);
   x := x + 2
  end;
end.

Объяснение кода листинга программы

В данном коде объявлены две переменные: x и y. Переменная x инициализируется значением 1, а переменная y инициализируется значением 1/x^2. Затем происходит цикл while, который выполняется до тех пор, пока значение переменной x не станет больше или равно 20. Внутри цикла выводится значение переменной x и y с помощью функции writeln. Значение переменной x увеличивается на 2 после каждой итерации цикла.