Если цифра сотен равна 8 или 9, то число домножить на количество десятков, если число сотен от 3 до 5, то у числа оставить цифры сотен и десятков, в противном случае из исходного числа вычесть число сотен? составьте

Pascal

var   
a,s,d,e : integer;  
begin 
readln (a);   

s := a div 100; //Узнаем цифру сотен 
d := (a div 10) - (a div 100) * 10; //узнаем цифру десятков 
e := a mod 10; //узнаем цифру единиц
   
case s of   
8,9 : a := a * d;   
3..5 : a := s * 10 + d;     
else     
a := a - s;     
end;     
writeln (a); 
end.