uses dos;
var be,ki:text;
    rbuf,wbuf:array[1..10000] of byte;
    c:char;
    
begin
 assign(be,'evaluare.in');
 assign(ki,'e.pas');
 settextbuf(be,rbuf);
 settextbuf(ki,wbuf);
 reset(be);
 rewrite(ki);
 writeln(ki,'var f:text; begin assign(f,''evalueare.out''); rewrite(f);');
 writeln(ki,'writeln(f,');
 while not eoln(be) do
   begin
    read(be,c);
    if c = '/' then write(ki,' DIV ')
       else write(ki,c);
    if c in ['+','-','*','/'] then writeln(ki);
   end;
 writeln(ki, '); close(f); end.' );
 close(ki);
 exec('fpc','./e.pas');
 exec('./e','');
end.