2，设有下列的算式：

，设有下列的算式：
          8 0 9
     -------------
□□)  □□□□
       □□
     -------------
         □□□
         □□□
     -------------
              1
求出□中的数字，并打印出完整的算式来。
输入：无
输出：见上图

program dv;
Const   Number = 809;
        rest = 1;
var
        i, j, dved, dvor : integer;
begin
        for dvor := 10 to 20 do
                if ( ((Number div 100)*dvor  < 100) and ((Number mod 10)*dvor >= 100)) then
                begin
                        dved := Number*dvor+1;
                        break;
                end;

        writeln(Number : 9);
        writeln('-----' : 9);
        writeln(dvor, ' ) ', dved);
        writeln((Number div 100)*dvor : 7);
        writeln('-----' : 9);
        writeln(dved-(Number div 100)*dvor*100 : 9);
        writeln((Number mod 10)*dvor : 9);
        writeln('-----' : 9);
        writeln(1 : 9);
end.