Найти произведение цифр двухзначного числа

uses crt;
var a,b,d,c:integer;
begin
readln(a);
b:=10;
asm
mov ax,a
idiv b
mov c,ax
imul b
mov bx, ax
mov cx,a
sub cx,bx
mov ax,c
imul cx
mov d,ax
end;
writeln(d);
readkey; end.

uses Crt;
var a, b : byte;
 
begin
ClrScr;
Write('Enter a number: ');
Readln(a);
asm
  xor ax, ax        {очистка регистра}
  mov al, a
  aam                {преобразование числа в al из 16-чного формата в неупакованное BCD-число}
  mov cl, ah        {десятки переносим в cl, единицы остаются в al}
  mul cl
  mov b, al
end;
Writeln('Result: ', b);
Readln
end.

uses Crt;
var
   a, b : integer;
   rez1, rez2: double;
 
begin
ClrScr;
Write('Enter a radius: ');
Readln(a);
Write('Enter a side of a square: ');
Readln(b);
asm
  finit
  fild a
  fmul st, st
  fldpi
  fmulp
  fstp rez1
  fild b
  fmul st, st
  fstp rez2
end;
if (rez1 < rez2) then
  Writeln(rez1:0:4, ' < ', rez2:0:4)
else
  Writeln(rez1:0:4, ' > ', rez2:0:4);
Readln
end.

asm
  finit
  fild a
  fmul st, st
  fldpi
  fmulp
  fstp rez1
  fild b
  fmul st, st
  fstp rez2
end;