Создайте свой модуль, реализующий математические функции - Turbo Pascal

Program Test;
Uses CRT, RVP;
Var
    x,c:real;
    i,y,code,pcode,dcode: integer;
    s,z,v: string;
 
Procedure one;
 begin
      Write('Vvedite Tangens v gradusah: ');
      readln(z);
      val(z,x,PCode);
      If (pcode<>0) then writeln('ERROR! Vvodite 4islovie zna4eni9!');
      If (pcode=0) then Writeln('Tangens ',x:4:2,' = ',tan(x):4:4);
      Writeln;
 end;
 
Procedure two;
 begin
      Write('Vvedite ArcSin ot -1 do 1: ');
      readln(z);
      val(z,x,PCode);
      If (pcode<>0) or (x>1) or (x<-1) then writeln('ERROR! Vvodite pravil"nie 4islovie zna4eni9!')
          else
      If (pcode=0) then Writeln('ArcSin ',x:4:2,' = ',arcsin(x):4:2);
      Writeln;
 end;
 
Procedure three;
 begin
      Write('Vvedite ArcCos ot -1 do 1: ');
      readln(z);
      val(z,x,pcode);
      If (Pcode<>0) or (x>1) or (x<-1) then writeln('ERROR! Vvodite pravil"nie 4islovie zna4eni9!')
         else
      If (pcode=0) then Writeln('ArcCos ',x:4:2,' = ',arccos(x):4:2);
      Writeln;
 end;
 
Procedure four;
 begin
      Write('Vvedite Sinh: ');
      readln(z);
      val(z,x,PCode);
      If (pcode<>0) then writeln('ERROR! Vvodite 4islovie zna4eni9!');
      If (x>50) then writeln('Error!')
         else
      If (pcode=0) then Writeln('Sinh ',x:4:2,' = ',Sinh(x):4:2);
      Writeln;
 end;
 
Procedure five;
 begin
      Write('Vvedite Cosh: ');
      readln(z);
      val(z,x,PCode);
      If (pcode<>0) then writeln('ERROR! Vvodite 4islovie zna4eni9!');
      If (x>50) then writeln('Error!')
         else
      If (pcode=0) then Writeln('Cosh ',x:4:2,' = ',Cosh(x):4:2);
      Writeln;
 end;
 
Procedure six;
 begin
      Write('Vvedite Tanh: ');
      readln(z);
      val(z,x,PCode);
      If (pcode<>0) then writeln('ERROR! Vvodite 4islovie zna4eni9!');
      If (pcode=0) then Writeln('Tanh ',x:4:2,' = ',Tanh(x):4:2);
      Writeln;
 end;
 
Procedure seven;
 begin
      Write('Vvedite Log10 (tol"ko ''+''): ');
      readln(z);
      val(z,x,pcode);
      If (x<=0) or (pcode<>0) then writeln('ERROR!!! Povtorite vvod!')
         else
      If (pcode=0) then Writeln('Log ',x:4:2,' po osnovanijy 10 = ',Log10(x):4:2);
      Writeln;
 end;
 
Procedure eight;
 begin
      Write('Vvedite 4islo and stepen": ');
      readln(v);
      readln(z);
 
      val(v,c,dcode);
      val(z,x,pcode);
 
      If (dcode=0) then
      begin
       If c>0 then
        begin
             If (pcode<>0) then writeln('ERROR! Vvodite 4islovie zna4eni9!');
             If (pcode=0) then Writeln('4islo = ',Deg(c,x):4:2);
             Writeln;
        end
          else
       If c<0 then
        begin
             c:=abs(c);
             If (pcode<>0) then writeln('ERROR! Vvodite 4islovie zna4eni9!');
             If (pcode=0) then writeln('4islo = -',Deg(c,x):4:2);
             Writeln;
        end
          else
       If c=0 then writeln('Neopredelennost"');
      end
          else
      If (dcode<>0) then writeln('ERROR!!');
 end;
 
Procedure Menu;
 begin
      writeln('                    1 - Tangens     4 - Sinh     7 - Log10');
      writeln('       0 - MENU     2 - ArcSin      5 - Cosh     8 - Deg');
      writeln('                    3 - ArcCos      6 - Tanh     9 - EXIT');
      Writeln;
 end;
 
Begin
     clrscr;
     Menu;
     while i<>9 do
      begin
           readln(s);
           val(s,i,code);
           If (code<>0) or (i>9) then write('ERROR! Vvodite v diapazone 0-9: ');
           If (code=0) then
           begin
                Case i of
                         1: One;
                         2: Two;
                         3: Three;
                         4: Four;
                         5: Five;
                         6: Six;
                         7: Seven;
                         8: Eight;
                         9: Exit;
                         0: Menu;
                end;
           end;
      end;
end.