What is the fastest algorithm for multiplication of two n-digit numbers?

procedure multiple ()

variables a,b,s : integer;

write ( " enter the first number");

read (a);

write ("enter the second number");

read (b);

s=a*b

Write ("s=",s);

End