Около стены наклонно стоит палка длиной 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