Составить таблицу умножения на число n (значение n вводится с клавиатуры; 1n9).   дано

1)
Var
   n,i:integer;
Begin
Write('n = ');ReadLn(n);
For i:= 1 to 9 do
    WriteLn(i,'*',n,' = ',i*n);
End.

2)
Var A,B:integer;
Begin
WriteLn('Введите естественное число');
ReadLn(A);
B:=A mod 10;
While (A div 10 gt; 0) do
   A:=A div 10;
if Agt;B then WriteLn('1-ая больше')
else if Alt;B then WriteLn('Заключительная больше')
     else WriteLn('Цифры равны')
End.