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

Function summ(a:integer):integer;
begin
while(a<>0) 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.