Определить значение угла между наклонной палкой и полом - PascalABC.NET

Формулировка задачи:

1. Около стены наклонно стоит палка длиной X. Один ее конец находится на расстоянии Y от стены. Определить значение угла а между палкой и полом для значений Х=4,5м. и Y, изменяющегося от 2 до 3 метров с шагом 0,2 метра. 2. Используя условие задачи 1 определить, при каком значении Y, угол (X будет больше 0,6 рад. нужно сделать вторую, не могу разобраться

Решение задачи: «Определить значение угла между наклонной палкой и полом»

Листинг программы

var x,y,u:real;
begin
x:=4.5;
y:=2;
while y<3+0.1 do
 begin
  u:=arccos(y/x);
  writeln('y=',y:0:1,' u=',u*180/pi:0:1,' град.');
  y:=y+0.2;
 end;
end.

Объяснение кода листинга программы

Объявлены три переменные: x, y, u типа real.
Значение переменной x равно 4.5.
Значение переменной y инициализируется значением 2.
Запускается цикл while, который выполняется до тех пор, пока значение переменной y меньше 3 + 0.1.
В каждой итерации цикла вычисляется значение переменной u как арккосинус (arccos) отношения значения переменной y к значению переменной x.
Выводится сообщение с числовым значением переменной y и значением переменной u, приведенным к градусам.
Значение переменной y увеличивается на 0.2 после каждой итерации цикла.
Цикл while завершается, когда значение переменной y становится больше или равным 3 + 0.1.
Код завершается.