программы с циклом FOR (Тема 7) (4)

program TablZnach2;

var
  x: integer;
  y, l: real;

begin

  for x := 3 to 15 do
  begin
    writeln('X = ', x);
    y := sqrt(x * 23 + x);
    l := exp(1 / 3 * ln(4 * x));
    Writeln('Y = ', y, '   L = ', l);

  end;

end.