for i:=20 to 30 do bein
arccos:=arctan(sqrt(1-sqr(y/x))/(y/x));
writeln('Значение угла',arccos:8:2,'  при y=',y);
y:=y+i*h
end;

uses crt;
var
   y,sd,x,h:real;
   i:integer;
begin
     clrscr;
     y:=2;
     writeln('Введите х');
     readln(x);
     write('  Введите шаг');
     readln(h);
     while y<=3 do begin
         sd:=arctan((1-sqr(y/x))*(y/x));
         writeln(' ugol = ',sd:0:5);
         y:=y+h
     end;
     writeln;
     writeln;
     y:=2;
     for i:=0 to 10 do begin
         y:=i*h+2;
         if y<=3 then begin
         sd:=arctan((1-sqr(y/x))*(y/x));
         writeln(' ugol = ',sd:0:5)
         end
     end;
     readkey
end.

const
  start_y = 2;
  finish_y = 3;
var 
  i, step: integer;
...
write ('Введите длину палки '); readln(x);
write ('Введите шаг '); readln(h);

step := trunc((finish_y - start_y) / h);
for i := 0 to step do begin
  y := start_y + i * h;
  arccos:=arctan(sqrt(1-sqr(y/x))/(y/x));
  writeln('Значение угла', arccos:8:2, '  при y=', y);
end;