Code pascal nha. Phần tạo tệp Input, output bạn tự thêm nha
program gaucon;
uses crt;
var n,i,k,j,m,S:longint;
A:array[1..1000] of longint;
begin
clrscr; i:=0; S:=0;
readln(n,m);
while n<>0 do
begin
inc(i);
A[i]:=n mod 10;
n:=n div 10;
end;
While m<>0 do
begin
k:=m mod 10;
m:=m div 10;
For j:=1 to i do S:=S+A[j]*k;
end;
writeln(S);
readln;
end.