Умножение столбиком

[Alex11223]

[NecroPostMode=on]

У меня работает

А у меня нет. Если число длиннее 8 знаков, то результат будет неверным.[NecroPostMode=off]

[Mad_Cat]

Если число длиннее 8 знаков, то результат будет неверным

а если не выпендриваться и поменять тип хотя бы на real

 iu,p,sum:real;i,k,r,nu,nm,im:integer;
    mas:array[1..100] of real;
function St10(a:real;b:integer):real;

ну и вывод чуть подправить то все будет верно)

111111111
*
11111
--------------
1.111111E+008
1.11111E+008
1.1111E+008
1.111E+008
1.11E+008
--------------
1234555554321

[Alex11223]

а если не выпендриваться и поменять тип хотя бы на real

Просто мне почему казалось, что программа была предназначена для "длинных чисел".