Đề thi Thực hiện phép nhân

Bài 71/2001 - Thực hiện phép nhân
Program Thuc_hien_phep_nhan; 
Uses Crt;
Type so = 0..9;
Var a,b,c,d: string;
 can,i: byte;
Procedure Nhap;
Begin
 Clrscr;
 Write('Nhap so a : '); Readln(a);
 Write('Nhap so b : '); Readln(b);
 Writeln('Phep nhan a va b : ');
 can:=length(a)+length(b)+1;
 Writeln(a:can);
 Writeln('X');
 Writeln(b:can);
 For i:=1 to can do Write('-');
 Writeln;
End;
Procedure Nhan(a: string; k: so);
Var nho: so;
 x,i: byte;
Begin
 nho:=0;
 c:='';
 For i:=length(a) downto 1 do
 Begin
 x:=(ord(a[i])-48)*k+nho;
 nho:=x div 10;
 c:=chr((x mod 10)+48)+c;
 End;
 If nho>0 then c:=chr(nho+48)+c;
 Writeln(c:can);
 can:=can-1;
End;
Procedure Cong(var c,d: string; z:byte);
Var nho: so;
 x,i: byte;
Begin
 for i:=1 to length(b)-z do c:=c+'0';
 If length(c) > length(d) then
 For i:=1 to length(c)-length(d) do d:='0'+d
 Else
 For i:=1 to length(d)-length(c) do c:='0'+c;
 nho:=0;
 For i:=length(d) downto 1 do
 Begin
 x:=ord(d[i])+ord(c[i])-96+nho;
 d[i]:=chr((x mod 10)+48);
 nho:=x div 10;
 End;
 If nho>0 then d:='1'+d;
End;
Begin
 Nhap;
 d:='';
 For i:=length(b) downto 1 do
 Begin
 Nhan(a,ord(b[i])-48);
 Cong(c,d,i);
 End;
 can:=length(a)+length(b)+1;
 For i:=1 to can do Write('-');
 Writeln;
 Writeln(d:can);
 Readln;
End.
(Lời giải của bạn Đặng Trung Thành - PTTH Nguyễn Du - Buôn Mê Thuột)