8 олимпиадных задач 1-го семестра, Фадеева ЕП (ПОИТ) / MULTIPLICATION07

program multiplication07;
var
i,m,n,j,u,w:byte;
a,b:string;
buf,q,del:integer;
k,f:array[1..51] of byte;
z:array[1..102] of byte;
begin
readln(a);
n:=length(a);
readln(b);
m:=length(b);
i:=1;
repeat
val(a[n],k[i],q);
i:=succ(i); n:=pred(n);
until i>length(a);
i:=1;
repeat
val(b[m],f[i],q);
m:=pred(m);i:=succ(i);
until m<1;
j:=1;w:=0;u:=0;i:=0;
repeat
i:=1;del:=0;u:=u+1;
repeat
buf:=k[i]*f[j]+del+z[u];
if buf>9 then
begin
z[u]:=buf mod 10;
del:=buf div 10;
end else
begin
z[u]:=buf;
del:=0;
end;
i:=i+1;u:=u+1;
until i>length(a)+1;
j:=j+1;w:=w+1;u:=u-length(a)-1;i:=i+1;
until w>length(b)-1;
if z[length(a)+length(b)]=0 then
for i:=length(a)+length(b)-1 downto 1 do write(z[i])
else for i:=length(a)+length(b) downto 1 do write(z[i]); readln;
end.