Введенное число помещается поразрядно в массив ROW. Могут умножаться числа до 10000 разрядов
$A+,B-,D+,E+,F-,G+,I+,L+,N+,O-,P-,Q-,R-,S+,T-,V+,X+,Y+
$M 16384,0,655360
uses crt;
var {-------- use calc factorial ---------}
row : array[1..20000] of byte;
col : array[1..10000] of byte;
nr,nc,dp : integer;
c : char;
procedure PrintResult;
begin
write('Р е з у л ь т а т = ');
while (dp<=high(row)) do begin
write(char(row[dp]+ord('0')));
inc(dp);
end;
writeln;
end;