RichEdit1.Lines.Add('10' + [U + 2081] + [U + 2087]);

if Pos('=',Edit1.Text)<>0 then
         begin
          case ComboBox15.ItemIndex of
          4: RichEdit1.Lines.Add('t = t1');
          5: RichEdit1.Lines.Add('t = t2');
          6: RichEdit1.Lines.Add('t = t3');
          7: RichEdit1.Lines.Add('t = t4');
          8: RichEdit1.Lines.Add('t = t5');
          9: RichEdit1.Lines.Add('t = t6');
          end;
         end

if Pos('=',Edit1.Text)<>0 then
         begin
          case ComboBox15.ItemIndex of
          3: RichEdit1.Lines.Add('t1 = t');
          5: RichEdit1.Lines.Add('t1 = t2');
          6: RichEdit1.Lines.Add('t1 = t3');
          7: RichEdit1.Lines.Add('t1 = t4');
          8: RichEdit1.Lines.Add('t1 = t5');
          9: RichEdit1.Lines.Add('t1 = t6');
          end;
         end

if Pos('=',Edit1.Text)<>0 then
         begin
          case ComboBox15.ItemIndex of
          3: RichEdit1.Lines.Add('t2 = t');
          4: RichEdit1.Lines.Add('t2 = t1');
          6: RichEdit1.Lines.Add('t2 = t3');
          7: RichEdit1.Lines.Add('t2 = t4');
          8: RichEdit1.Lines.Add('t2 = t5');
          9: RichEdit1.Lines.Add('t2 = t6');
          end;
         end

if Pos('=',Edit1.Text)<>0 then
         begin
          case ComboBox15.ItemIndex of
          3: RichEdit1.Lines.Add('t6 = t');
          4: RichEdit1.Lines.Add('t6 = t1');
          5: RichEdit1.Lines.Add('t6 = t2');
          6: RichEdit1.Lines.Add('t6 = t3');
          7: RichEdit1.Lines.Add('t6 = t4');
          8: RichEdit1.Lines.Add('t6 = t5');
          end;
         end

if ComboBox15.ItemIndex in [3..9] then
          RichEdit1.Lines.Add(NumberedString('t1 = t%s',ComboBox15.ItemIndex-3));

function power(x,y:real):real;
begin
    result := exp(y*log(x));
end;

if ((ComboBox9.ItemIndex = 84) or (ComboBox10.ItemIndex = 84) or              // m - Маса
     (ComboBox11.ItemIndex = 84) or (ComboBox12.ItemIndex = 84) or
     (ComboBox13.ItemIndex = 84) or (ComboBox14.ItemIndex = 84)) and
     ((ComboBox9.ItemIndex = 280) or (ComboBox10.ItemIndex = 280) or            // а - Сторона
     (ComboBox11.ItemIndex = 280) or (ComboBox12.ItemIndex = 280) or
     (ComboBox13.ItemIndex = 280) or (ComboBox14.ItemIndex = 280)) then
  begin
   Definition := STORONA;
   RichEdit1.Lines.Add(Definition);
   Definition := OBYEM;
   RichEdit1.Lines.Add(Definition);
   Definition := EmptyLine;
   RichEdit1.Lines.Add(Definition);
   RichEdit1.Lines.Add ('Визначаємо об''єм куба.');
   RichEdit1.Lines.Add ('V=a'+#$00B3);
   RichEdit1.Lines.Add(Definition);
   Variables[49,0] :=  IntPower(Variables[41,0],3) ;
   RichEdit1.Lines.Add (Format('%.25gм * %.25gм * %.25gм = %.25gм³.',
                       [Variables[41,0], Variables[41,0], Variables[41,0], Variables[49,0]]));
   RichEdit1.Lines.Add(Definition);
   RichEdit1.Lines.Add ('Визначаємо густину речовини.');
   Definition := GUSTINA_RECHOVNI;
   RichEdit1.Lines.Add(Definition);
   Definition := EmptyLine;
   RichEdit1.Lines.Add(Definition);
   Pict := TPicture.Create;
   try
    Pict.LoadFromFile('Формули\Густина речовини ρmV.jpg');
    Clipboard.Assign(Pict);
    RichEdit1.PasteFromClipboard;
   finally
    Pict.Free;
   end;
   RichEdit1.Lines.Add(Definition);
   Variables[14,0] :=  Variables[13,0] / Variables[49,0];
   RichEdit1.Lines.Add (Format('%.25gкг / %.25gм³ = %.25gкг/м³.',
                       [Variables[13,0], Variables[49,0], Variables[14,0]]));
   undo := False;
   Output_Value := True;
  end

  else

Variables[49,0] :=  IntPower(Variables[41,0],3) ;
   RichEdit1.Lines.Add (Format('%.25gм * %.25gм * %.25gм = %.25gм³.',
                       [Variables[41,0], Variables[41,0], Variables[41,0], Variables[49,0]]));

var
  Form1: TForm1;
prover, glob_check,skob,nev,trig:boolean;
obrazec1,obrazec2:extended;
znac_oper:char;
 obrazec12,zn1,zn2,zn: ZReal;
 big: int64;
 zt,zt1,zt2,pamet:string;

i,j,i_local,c,meraisch,t,sk: integer;
a:array [0..1000] of string;
b:array [0..1000] of char;

implementation

uses Unit2;

{$R *.dfm}

function zr_e (stroka: string): string;
var n:integer;
begin

  zn:=strtozr(stroka);
  zn2:=ZRToLongInt(zn,-1);
  zn1:= subzr(zn,zn2);

   if ( ComparisonZR(zn1,realtozr(0.0000001))=-1) then
      begin
   zn:= ZRToLongInt(zn,-1);
   stroka:=zrtostr(zn);
   end;
  if ( ComparisonZR(zn1,realtozr(0.9999))=1) and ( ComparisonZR(zn1,realtozr(1))=-1) then
     begin
  zn:= ZRToLongInt(zn,1);
  stroka:=zrtostr(zn);
  end;

for n:=1 to length(stroka) do
if stroka[n]='+' then
  begin
  stroka[n-1]:='e';
  delete(stroka,n,1);
  end;

for n:=1 to length(stroka) do
if stroka[n]='-' then
  begin
  stroka[n-1]:='e';
  end;




 //if  (ComparisonZR(zn,realtozr(9E5))=-1) and ( ComparisonZR(zn,realtozr(9E-5))=1) then
 //stroka:=floattostr(zrtoreal(zn));

  zr_e:=stroka;
end;