Запиши мантиссу числа и порядок числа

1) Cистема Умный Дом — технология экономии, удобства и комфорта высокого уровня. Обеспечит охрану и безопасность школы, организует комфортную температуру в помещениях, польет клумбы на пришкольной территории, предотвратит воды и сообщит об этом хозяйственным службам школы. Эта система сэкономит денежные средства на отопление и электроэнергию, что является очень актуальным аспектом для бюджета общеобразовательной организации.
2) При организации системы Умный дом в школе возможны следующие проблемы:
- организация подключения школы к сети Интернет
- дополнительные затраты на закупку  оборудования системы Умный дом: (перечислить).
- ну и так далее в зависимости от различных моделей и модификации системы

1. PascalABC.NET 3.2

begin
  var s:=ReadlnString('Введите натуральное число:');
  var c:=ReadlnChar('Введите цифру для поиска:');
  if Pos(c,s)>0 then Writeln('Такая цифра есть')
  else Writeln('Такой цифры нет')
end.

2. PascalABC.NET любой версии, Free Pascal и т.д. на строках

var
  s:string;
  c:char;
begin
  Write('Введите натуральное число: '); Readln(s);
  Write('Введите цифру для поиска: '); Readln(c);
  if Pos(c,s)>0 then Writeln('Такая цифра есть')
  else Writeln('Такой цифры нет')
end.

3. То же, но без строк, с циклом

var
  n:longint;
  d:0..9;
begin
  Write('Введите натуральное число: '); Read(n);
  Write('Введите цифру для поиска: '); Read(d);
  while n>0 do begin
    if n mod 10=d then begin
      Writeln('Такая цифра есть');
      Exit
      end;
    n:=n div 10
    end;
  Writeln('Такой цифры нет')
end.