Помогите пожалуйста С оператором for Около стены наклонно стоит палка длиной 4.5 м. Нижний конец находится на расстоянии 3 м от стены. Он начинает скользить в плоскости перпендикулярной стене. Определить значение угла между палкой и полом (в градусах) с момента начала скольжения до падения палки через каждые 0.2 м.
Держи uses crt; var d,r,x,dx,h,u:real; begin clrscr; d:=4.5; r:=3; dx:=0.2; x:=r; repeat h:=sqrt(d*d-x*x); u:=arctan(h/x); writeln('x=',x:4:1,' Угол=',u*180/pi:0:1,#248); x:=x+dx until x>d; readln end.
Нужно именно с оператором for