var x, h, y, alpha : real;begin write('k = '); read(x); write('h = '); read(h); y := 2; while y < 3 + 1E-9 do begin writeln('y = ', y, ', alpha = ', arccos(y / x) * 180 / pi : 0 : 3); y := y + h; end;end.Пример работы программы:k = 5h = 0.1y = 2, alpha = 66.422y = 2.1, alpha = 65.165y = 2.2, alpha = 63.896y = 2.3, alpha = 62.613y = 2.4, alpha = 61.315y = 2.5, alpha = 60.000y = 2.6, alpha = 58.668y = 2.7, alpha = 57.316y = 2.8, alpha = 55.944y = 2.9, alpha = 54.549y = 3, alpha = 53.130