Дана строка, значение которой является число в экспоненциальной форме

unit Rich{Convention};
 
interface
 
var CorrectFormat:boolean;
function ReadChar(v:char):byte;
function ReadNumber(v:string):longint;
function ReadFloatNumber(v:string):real;
function WriteInFormat(number:Real;format:string):string;
 
implementation
 
function ReadChar(v:char):byte;
begin
     if v in ['0'..'9']
        then ReadChar:=ord(v)-48
        else begin
             ReadChar:=0;
             CorrectFormat:=false
        end;
end;
 
function ReadNumber(v:string):longint;
var i:byte;
    r:longint;
begin
if v=''
   then begin CorrectFormat:=false; ReadNumber:=0; end
   else
       if v[1]='+'
          then begin
                    delete(v,1,1);
                    ReadNumber:=ReadNumber(v)
               end
          else
              if v[1]='-'
                 then begin
                           delete(v,1,1);
                           ReadNumber:=ReadNumber(v);
                      end
                 else begin
                           r:=0;
                           while v[1]=' ' do delete(v,1,1);
                           for i:=1 to length(v) do
                               r:=r*10+ReadChar(v[i]);
                           ReadNumber:=r;
                      end;
end;
 
function RFN_Standart(Mantica:Real;Grade:integer):Real;
var r:real;
    i:integer;
begin
     r:=1;
     if Grade>0
        then for i:=1 to abs(Grade) do r:=r*10
        else for i:=1 to abs(Grade) do r:=r/10;
     RFN_Standart:=Mantica*r;
end;
 
function RFN_Point(int_part:string; frac_part:string):Real;
var r:real;
    i:integer;
begin
     r:=1;
     for i:=1 to length(frac_part) do
         r:=r/10;
     r:=r*ReadNumber(frac_part);
     RFN_Point:=ReadNumber(int_part)+r;
end;
 
function ReadFloatNumber(v:string):Real;
var i:integer;
{   ss:string;  }
begin
     while (v<>'')and(v[length(v)]='.') do delete(v,length(v),1);
     for i:=1 to length(v) do if v[i]='E' then v[i]:='e';
     for i:=1 to length(v) do if v[i]=',' then v[i]:='.';
     if Pos('e',v)=0 then
        if Pos('.',v)=0
           then ReadFloatNumber:=ReadNumber(v)
           else begin
                i:=pos('.',v);
                ReadFloatNumber:=
                                 RFN_Point(
                                 Copy(v,1,i-1),
                                 Copy(v,i+1,length(v)-i)
                                 );
           end
        else begin
             i:=pos('e',v);
             {Mantica,Grade}
             ReadFloatNumber:=RFN_Standart(
                                           ReadFloatNumber(Copy(v,1,i-1)),
                                           ReadNumber(Copy(v,i+1,length(v)-i))
                                           );
        end;
end;
 
function WriteInFormat(number:Real;format:string):string;
const ee=1e-10;
var r,t:string;
var n:longint;
    function ch(x:byte):string;
             begin
                  ch:=chr(x+48);
             end;
 
begin
     if format='' then
        if abs(frac(number))<ee then
           begin
                t:='';
                n:=round(number);
                while abs(n)>0 do
                      begin
                            t:=Ch(n mod 10)+t;
                            n:=n div 10;
                      end;
                if (number<0.0)and(abs(number)>ee) then t:='-'+t;
                if t='' then r:='0' else r:=t;
           end
        else if (number<0.0)and(abs(number)>ee)
                then r:='-'+WriteInFormat(-number,'')
                else begin
                     n:=trunc(number);
                     t:=WriteInFormat(n,'');
                     t:=t+'.';
                     number:=number-n;
                     while abs(number)>ee do
                           begin
                                number:=number*10;
                                t:=t+Ch(trunc(number));
                                number:=frac(number);
                           end;
                end;
     WriteInFormat:=r;
end;
 
BEGIN
CorrectFormat:=true;
END.

s:=Writeinformat(ReadFloatNumber(s),'');

program Project236;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
   var e,s:string;f,cm:byte;ex:char;
begin
 s:='2,3E+3';
 f:=1;while s[f]<>'E' do begin
  if s[f] in ['0'..'9'] then  e:=e+s[f];
  if s[f] in ['.'..','] then cm:=f;
  inc(f);
 end;
 ex:=s[length(s)];
 f:=length(e)-cm;
 while chr(f+ord('0'))<=ex do begin inc(f); e:=e+'0';end;
 write(e);
 readln;
end.

program Project336;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Var A, b, c: String; L, S, d: Integer;
begin
WriteLn('Vvedite Chislo');
ReadLn(A);
L:=Length(A);
S:=Pos('E+', A);
If S<>0 Then
      Begin
      b:=Copy(A, 1, S-1);
      c:=Copy(A, S+2, L-S);
      End;
// теперь в строке "b" часть строки "A" до "E+"
// а в строке "c" часть строки "A" после "E+"
If (Length(c)<>0) And (c[1]<>'0') Then // если после "E+" не пусто и не ноль
      Begin
      S:=Pos('.', b);
      L:=Length(b);
      If S=0 Then // если в строке "b" нет точки
            Begin
            d:=0;
            While c<>'' Do
                  Begin
                  Case c[1] Of
                        '0':
                              d:=d*10;
                        '1':
                              d:=d*10+1;
                        '2':
                              d:=d*10+2;
                        '3':
                              d:=d*10+3;
                        '4':
                              d:=d*10+4;
                        '5':
                              d:=d*10+5;
                        '6':
                              d:=d*10+6;
                        '7':
                              d:=d*10+7;
                        '8':
                              d:=d*10+8;
                        '9':
                              d:=d*10+9;
                        End;
                  c:=Copy(c, 2, Length(c)-1);
                  End;
            A:=b;
            While d<>0 Do
                  Begin
                  A:=A+'0';
                  d:=d-1;
                  End;
            End
      Else  // если в строке "b" есть точка
            Begin
            d:=0;
            While c<>'' Do
                  Begin
                  Case c[1] Of
                        '0':
                              d:=d*10;
                        '1':
                              d:=d*10+1;
                        '2':
                              d:=d*10+2;
                        '3':
                              d:=d*10+3;
                        '4':
                              d:=d*10+4;
                        '5':
                              d:=d*10+5;
                        '6':
                              d:=d*10+6;
                        '7':
                              d:=d*10+7;
                        '8':
                              d:=d*10+8;
                        '9':
                              d:=d*10+9;
                        End;
                  c:=Copy(c, 2, Length(c)-1);
                  End;
            d:=d-L+S;
            A:=Copy(b, 1, S-1)+Copy(b, S+1, L-S);
            While d<>0 Do
                  Begin
                  A:=A+'0';
                  d:=d-1;
                  End;
            End;
      WriteLn(A);
      End
Else
      WriteLn('Error');
readln;
end.