Класс Гипербола,поля класса:длины полуосей.Предусмотреть в классе методы вычисления:эксцентриситета эллипса,координат фокусов,асимптот гиперболы

program Project14;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type TGiperb = class(TObject)
private
 fa1,fb1,fa2,fb2,fx1,fx2:integer;
published
  property a1: integer read fa1 write fa1;
  property b1: integer read fb1 write fb1;
  property x1: integer read fx1 write fx1;
  function extentriset(a1,b1:integer):real;
  function focus(a1,b1:integer):real;
  function asimptota1(a1,b1,x1:integer):real;
  function asimptota2(a1,b1,x1:integer):real;
end;
 
 function TGiperb.extentriset(a1,b1:integer):real;
 begin
  extentriset:=(sqrt(sqr(a1)+sqr(b1)))/a1;
 end;
 
 function TGiperb.focus(a1,b1:integer):real;
 begin
  focus:=sqrt(sqr(a1)+sqr(b1));
 end;
 
 function TGiperb.asimptota1(a1,b1,x1:integer):real;
 begin
  asimptota1:=(b1/a1)*x1;
 end;
 
 function TGiperb.asimptota2(a1,b1,x1:integer):real;
 begin
  asimptota2:=-(b1/a1)*x1;
 end;
 
 var a1,b1,x1:integer;
 E,F,U1,U2:real;
 giperb: TGiperb;
begin
  giperb:=TGiperb.Create;
  write('enter a: ');
  readln(a1);
  write('enter b: ');
  readln(b1);
  write('enter x: ');
  readln(x1);
  //giperb.a1:=a1;
  //giperb.b1:=b1;
  //giperb.x1:=x1;
  E:=giperb.extentriset(a1,b1);
  F:=giperb.focus(a1,b1);
  U1:=giperb.asimptota1(a1,b1,x1);
  U2:=giperb.asimptota2(a1,b1,x1);
  writeln;
  writeln('extentriset= ',E:2:2);
  writeln;
  writeln('focus= ',F:2:2);
  writeln;
  writeln('pervaia asimptota= ',U1:2:2);
  writeln;
  writeln('vtoraya asimptota= ',U2:2:2);
  giperb.Destroy;
  readln;
end.