Program Lab4a (Input, Output);
Var
  a, b, dx: real;
  x, y: real;
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;
   while x<=b do
  begin
  if x = 0 then
   writeln('x=', x:8:5, 'y=not defined')
  else
  begin
  y:=ARCTAN(x)-ARCTAN(1/x) ;
  writeln('y=', x:8:5, 'y=', y:10:5);
  end;
  x:=x+dx;
  end;
End.

UHJvZ3JhbSBMYWI0YSAoSW5wdXQsIE91dHB1dCk7ClZhcgogIGEsIGIsIGR4OiByZWFsOwogIHgsIHk6IHJlYWw7CkJlZ2luCiAgd3JpdGVsbignUGxlYXNlIGVudGVyIGEgdmFsdWUgZm9yIHN0YXJ0IGEnKTsKICByZWFkbG4oYSk7CiAgd3JpdGVsbignUGxlYXNlIGVudGVyIGEgdmFsdWUgZm9yIGZpbmlzaCBiJyk7CiAgcmVhZGxuKGIpOwogIHdyaXRlbG4oJ1BsZWFzZSBlbnRlciBhIHZhbHVlIGZvciBzdGVwIGR4Jyk7CiAgcmVhZGxuKGR4KTsKICB4Oj1hOwogICB3aGlsZSB4PD1iIGRvCiAgYmVnaW4KICBpZiB4ID0gMCB0aGVuCiAgIHdyaXRlbG4oJ3g9JywgeDo4OjUsICd5PW5vdCBkZWZpbmVkJykKICBlbHNlCiAgYmVnaW4KICB5Oj1BUkNUQU4oeCktQVJDVEFOKDEveCkgOwogIHdyaXRlbG4oJ3k9JywgeDo4OjUsICd5PScsIHk6MTA6NSk7CiAgZW5kOwogIHg6PXgrZHg7CiAgZW5kOwpFbmQu

MQozCjQ=

1
3
4