Задача, паскаль. =)

[Soul_fly]

Задачка нужна для допуска на сессию, а я совсем не знаю Pascal'a. Буду вам очень признательна. =). Условие ниже. =).

[Soul_fly]

Напечатать картинку, изображающую умножение "cтолбиком" двух заданных целых чисел: например
39624
*
8503
--------
118872
198120
316992
---------
336922872

[NioTo]

Что значит "напечатать картинку"?

[stck]

var num1,num2,c:integer;
snum1,snum2,snum3:string;
err,i,length_full,increm:integer;
begin
 writeln('Произведение.');
 write('Введите первое число');
 readln(snum1); val(snum1, num1, err);
 write('Введите второе число');
 readln(snum2); val(snum2, num2, err);
 length_full:=length(num1*num2);
 if length(snum1)>length(snum2)
  then 
   begin
    repeat
     snum2:=' '+snum2;
    until length(snum2)=length(snum1);
   end
 else 
 if length(snum2)>length(snum1)
 then 
  begin
   snum3:=snum2;
   snum2:=snum1;
   snum1:=snum3;
   snum3:=' ';
   repeat
    snum2:=' '+snum2;
   until length(snum2)=length(snum1);
  end;
 snum1:=' '+snum1;
 snum2:=' '+snum2;
 snum3:='x';
 repeat
  snum1:=' '+snum1;
  snum2:=' '+snum2;
  snum3:=' '+snum3;
 until length(snum3)=length(length_full);
 writeln(snum1);
 writeln('x');
 writeln(snum2)
 repeat
  snum3:=snum3+'-';
 until length(snum3)=length(snum2);
 writeln(snum3);
 increm:=0;
 for i:=length(num2) down to 1 do
  begin
   snum3:=copy(snum2,length(snum2)-1,1);
   delete(snum2,length(snum2)-1,1);
   val(snum3,c,err);
   c:=c*num1;
   str(c,num3);
   repeat
    snum3:=' '+snum3;
   until length(snum3)=length_full-increm;
   inc(increm);
   writeln(snum3);
   snum3:=''; 
  end;
 snum3:='-';
 repeat
  snum3:=snum3+'-';
 until length(snum3)=length_full;
 c:=num1*num2;
 writeln(c);
end.

[rubius2008]

делается это через форматированный вывод
только часть:

  writeln(a:p);
  writeln('x',:p-maxdl);
  writeln(b:p);

и т.д.
единственное, что нужно подсчитать p. maxdl - длина наибольшего из множителей

[NioTo]

program LongMultiplication;

var
  Num1, Num2: LongInt;
  sNum1, sNum2: String;
  Product: LongInt;
  sProduct: String;
  i: Integer;
  Figure: Integer;

begin
  Write('Введите первое число: ');
  ReadLn(Num1);
  Write('Введите второе число: ');
  ReadLn(Num2);

  if Num1 < Num2 then begin
    Num1 := Num1 + Num2;
    Num2 := Num1 - Num2;
    Num1 := Num1 - Num2;
  end;

  Product := Num1 * Num2;
  Str(Num1, sNum1);
  Str(Num2, sNum2);
  Str(Product, sProduct);
  
  WriteLn(Num1:Length(sProduct));
  WriteLn('X':Length(sProduct) - Length(sNum1));
  WriteLn(Num2:Length(sProduct));
  WriteLn(StringOfChar('-', Length(sNum1)): Length(sProduct));
  for i := 0 to Length(sNum2) - 1 do begin
    Figure := Num2 mod 10;
    Num2 := Num2 div 10;

    if Figure = 0 then
      Continue;

    WriteLn(Figure * Num1:Length(sProduct) - i)
  end;
  WriteLn(StringOfChar('-', Length(sProduct)));
  WriteLn(Product);
end.