Дано естественное число больше 9 если число цифр в числе нечетно

var

 n, i: Integer;

 s: string;

begin

   Write ('Введите естественное число, больше 9: ');

   ReadLn (n);

   if n lt;= 9 then begin

     Writeln ('Ошибка ввода!');

     Exit;

   end;

   s := IntToStr (n);

   if Length (s) mod 2 lt;gt; 0 then begin   // проверка на четность

     i := Length (s) div 2 + 1;   // вычисление позиции центральной числа

     Delete (s, i, 1);   // удаление центральной числа

     Writeln ('Итог: ' + s);

   end else

     Writeln ('Число цифр в числе четно.');

end;