Помогите решить задачу в Delphi 7

Question

Вводится положительное целое число в десятичной системе счисления. Необходимо вывести число, полученное удалением первой и последней цифр исходного числа.

Светлана Голубева · Accepted Answer

Надежда Нестерова · Answer

program q171651149;
var
 i, s, x: integer;
begin
 Write('Число = ');
 ReadLn(s);
 i := 0;
 x := s;
 while x > 0 do
 begin
 x := x div 10;
 Inc(i); 
 end;
 WriteLn('Результат: ', (s div 10) mod Trunc(exp(ln(10)*(i-2))));
 ReadLn;
end.