program umnogen;
uses crt;
  var s,x,y,j,a,a1,b,b1,c,i,k,z,f,r,k1,res,sum,x0,y0:Longint;
      st:real;
begin
  clrscr;
  write('Введите 1-ый множитель:');readln(a);
  write('Введите 2-ой множитель:');readln(b);
  a1:=a;b1:=b;k:=0;{k1:=0;}

  while a1<>0 do begin
    a1:=a1 div 10;
    k:=k+1;
    end;

  while b1<>0 do begin
    b1:=b1 div 10;
    k1:=k1+1;
    end;
if a<b then begin c:=a;a:=b;b:=c;c:=k;k:=k1;k1:=c; end;
       gotoxy(20,10);write(a);
       gotoxy(20+k-k1,11);write(b);
       gotoxy(20,12);
for i:=1 to k do write('-');b1:=b;
    j:=0; sum:=0;

gotoxy(34,9);writeln('В уме');
repeat
  readln;
  i:=0;res:=0;a1:=a;
  y:=b1 mod 10;b1:=b1 div 10;f:=0;
    repeat;
      readln;
      x:=a1 mod 10;a1:=a1 div 10;z:=x*y+f;f:=0;
      if z>9 then begin
                 f:=z div 10;
                 z:=z mod 10;
                 gotoxy(37,10);write(f);
                 readln;gotoxy(37,10);write('  ');
                  end;
      gotoxy(19+k-i-j,13+j);write(z);
      st:=0.1;
      for c:=0 to i+j do st:=st*10;
      s:=trunc(st);
      res:=res+z*s;inc(i);
    until a1=0;

    if f>0 then begin gotoxy(19+k-i-j,13+j);write(f);
                    res:=res+f*s*10;end;
       inc(j); sum:=sum+res;
until b1=0;
if b div 10 <>0 then begin
  gotoxy(20-k1,13+j);
  for i:=1 to k+k1 do write('-');
  x0:=13+j;y0:=14+j;

i:=0;
j:=sum;
repeat
   readln;
   gotoxy(19+k-i,y0);write(sum mod 10);
   sum:=sum div 10;
   inc(i);
until sum=0;end;
readln;
textcolor(14);write('':12,'УМНОЖЕНИЕ ВЫПОЛНЕНО !!!');
readln;
end.