Около стены наклонно стоит палка длиной x м. Один ее конец находится на расстоянии y м от стены. Определить значение угла между палкой и полом для значений x=k м и y, изменяющегося от 2 до 3 метров с шагом h м. (решить в паскале ,цикл с параметром.Помогите )

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.