program chislo;
var a,b:Integer;
begin
readln (a);
b:=(a div 10) mod 10;
a:=(a div 100)*10+a mod 10;
writeln (a*b);
end.
Пример работы:
program chislo;
var a,b:Integer;
begin
readln (a);
b:=(a div 10) mod 10;
a:=(a div 100)*10+a mod 10;
writeln (a*b);
end.
Пример работы: