Задано двухзначноечисло найдите произведение между кольчеством дестков и едниц

Question

Задано двухзначноечисло найдите произведение между кольчеством дестков и едниц

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadInteger().ToString();
write(a[1].ToDigit()*a[2].ToDigit());
end.

Answer 2

Var
  n:integer;
 
begin
  Read(n);
  Writeln((n div 10)*(n mod 10))
end.