var
  h,x,y:real;
begin
  writeln('Введите значения k и h');
  readln(x,h);
  y:=2;
  while y<=3.000001 do begin  //3.000001 преодолевает погрешность накопления y
    writeln(y:6:3,ArcCos(y/x):6:3);
    y:=y+h
  end
end.

Тестовый прогон:

Введите значения k и h
4.5 0.1
 2.000 1.110
 2.100 1.085
 2.200 1.060
 2.300 1.034
 2.400 1.008
 2.500 0.982
 2.600 0.955
 2.700 0.927
 2.800 0.899
 2.900 0.870
 3.000 0.841