PROGRAM LAB4C_VAR20 (INPUT, OUTPUT);
VAR
  A, B, DX: REAL;
  X, Y: REAL;
  K, I: INTEGER;
BEGIN
  WRITELN('PLEASE ENTER A VALUE FOR START A');
  READLN(A);
  WRITELN('PLEASE ENTER A VALUE FOR FINISH B');
  READLN(B);
  WRITELN('PLEASE ENTER A VALUE FOR STEP DX');
  READLN(DX);
 
  X := A;
  K := TRUNC((B - A) / DX) + 1;
 
  FOR I := 1 TO K DO
  BEGIN
    IF (1 - ABS(X)) < 0 THEN
      WRITELN('X=', X:8:5, '  Y=IS NOT DEFINED')
    ELSE
    BEGIN
      Y := SQRT((1 - ABS(X)) / (1 + ABS(X)));
      WRITELN('X=', X:8:5, '  Y=', Y:10:5);
    END;
 
    X := X + DX;
  END;
END.

UFJPR1JBTSBMQUI0Q19WQVIyMCAoSU5QVVQsIE9VVFBVVCk7ClZBUgogIEEsIEIsIERYOiBSRUFMOwogIFgsIFk6IFJFQUw7CiAgSywgSTogSU5URUdFUjsKQkVHSU4KICBXUklURUxOKCdQTEVBU0UgRU5URVIgQSBWQUxVRSBGT1IgU1RBUlQgQScpOwogIFJFQURMTihBKTsKICBXUklURUxOKCdQTEVBU0UgRU5URVIgQSBWQUxVRSBGT1IgRklOSVNIIEInKTsKICBSRUFETE4oQik7CiAgV1JJVEVMTignUExFQVNFIEVOVEVSIEEgVkFMVUUgRk9SIFNURVAgRFgnKTsKICBSRUFETE4oRFgpOwoKICBYIDo9IEE7CiAgSyA6PSBUUlVOQygoQiAtIEEpIC8gRFgpICsgMTsKCiAgRk9SIEkgOj0gMSBUTyBLIERPCiAgQkVHSU4KICAgIElGICgxIC0gQUJTKFgpKSA8IDAgVEhFTgogICAgICBXUklURUxOKCdYPScsIFg6ODo1LCAnICBZPUlTIE5PVCBERUZJTkVEJykKICAgIEVMU0UKICAgIEJFR0lOCiAgICAgIFkgOj0gU1FSVCgoMSAtIEFCUyhYKSkgLyAoMSArIEFCUyhYKSkpOwogICAgICBXUklURUxOKCdYPScsIFg6ODo1LCAnICBZPScsIFk6MTA6NSk7CiAgICBFTkQ7CgogICAgWCA6PSBYICsgRFg7CiAgRU5EOwpFTkQu

LTEKMQowLjE=

-1
1
0.1