program Assignment6(input, output);

Var
   input            : text;
   temporary_result : real;
   equation         : string[255];
   myArrayEquation  : array[1..100] of string[255];
   first_digit      : char;
   num              : integer;

BEGIN
   assign(input, 'input.txt');
   reset(input);
   read(input, equation);




end.


procedure ignore_space;

begin

   while first_char := ' ' do
      read(input, first_digit);

end;

procedure find_number;

begin

   num := 0;
   while (ord(first_digit) >= ord('0')) and (ord(first_digit) <= ord('9')) do
   begin
      num := num * 10 + (ord(first_digit) - ord('0'));
      read(input, first_digit);
   end;
end;

program Assignment6(input, output);
Var
   file1 : text;
   c     : char;
   error : boolean;
   num1  :  integer;

function convert(c: char): integer;
begin
   convert := ord(c) - ord('0');
end; { convert }

procedure  find_digits(num : integer);

   num := 0;
   while (ord(c) >= ord('0')) and (ord(c) <= ord('9')) do
begin
   num := num * 10 + (ord(c) - ord('0'));
   read(file1, c);
end;
end; { find_digits }

procedure ignorespaces;
begin
   while c = ' ' do
      read(file1, c);
end; { ignore_spaces }



BEGIN

   assign(file1, 'input.txt');
   reset(file1);
   read(file1, c);
   error := false;
   ignorespaces;
   If ((ord(c) >= ord('0')) and (ord(c) <= ord('9'))) then
begin
   find_digits;
   num1 := num;

end;


end.