Составить программу табулирования функции у=ln/cos(х)/ на интервале х [1; 13],δх=0,4

var
  x: real := 1;

begin
  while (x <= 13) do
  begin
    writeln('y(', x, ') = ', ln(cos(x)));
    x += 0.4;
  end;
end.