Напишите программу пожалуйста!!! ПЕРВОМУ ЛУЧШИЙ ОТВЕТ!!!

Var
   A,N,i,j,o:integer;
Begin
Write('Начальное значение: ');ReadLn(A);
Write('Размер таблицы: ');ReadLn(N);
o:=Sqr(N+A);
if Frac(Ln(o)/Ln(10)) <> 0 then o:=2+Trunc(Ln(o)/Ln(10))
else o:=1+Trunc(Ln(o)/Ln(10));
N:=N-1;
Write('':(o+1));
For i:= A to A+N do
    Write(i:o,' ');
WriteLn;
For i:= A to N+A do
    Begin
    Write(i:o);
    For j:= A to A+N do
        Write(' ',i*j:o);
    WriteLn
    End;
End.