Если число заканчивается на 2 или 3, то исходное число умножить на число десятков в нем, если число единиц от 7 до 9, то из числа вычесть сумму цифр числа, в противном случае отбросить последнюю цифру.

Pascal

Function summ (a:integer) : integer;

begin

while (a0) do begin

summ+=a mod 10;

a:=a div 10;

end;

end;

var a:integer;

begin

read (a) ;

if (a mod 10 = 2) or (a mod 10 = 3) then a * = (a div 10) mod 10

else if (a mod 10 > = 7) and (a mod 10 < = 9) then a-=summ (a)

else a:=a div 10;

writeln (a) ;

end.