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.

const fi='nhanmoi.inp';
      fo='nhanmoi.out';
var a,i,b,s,n,t:longint;
    c: array [1..1000] of longint;
begin
        assign(input,fi);
        reset(input);
        read(a,b);
        close(input);
        while a <> 0 do
                begin
                        inc(n);
                        c[n]:=a mod 10;
                        a:=a div 10;
                end;
        while b <> 0 do
                begin
                        t:=b mod 10;
                        b:=b div 10;
                        for i:=1 to n do
                                s:=s + c[i]*t;
                end;
        assign(output,fo);
        rewrite(output);
        write(s);
        close(output);
end.