program laba2_2;

Uses
   Sys.Utils;

Type
   TArray = array of Integer;

procedure Print; forward;
function FindNumber: TArray; forward;
procedure Task; forward;

procedure Print;
var
   i: Integer;
   Num: TArray;
begin
   Write('Найденное число: ');
   Num := FindNumber;
   for i := Length(Num) - 1 downto 0 do
      Write(Num[i]);
   Writeln;
   Writeln('Для выхода из программы нажмите Enter');
   Readln;
end;

function FindNumber: TArray;
var
Num: Tarray;
Now, i, Ost, n, Temp: Integer;
begin
   Now := 2;
   Ost := 0;
   i := 0;
   repeat
      Now := Now * 2 + Ost;
      if Now < 10 then
         Ost := 0
      else
      begin
         Dec(Now, 10);
         Ost := 1;
      end;
      SetLength(Num, i + 1);
      Num[i] := Now;
      Inc(i);
   until (Now = 2) and (Ost = 0);
   FindNumber := Num;
end;

procedure Task;
begin
   Write('Данная программа находит самое маленькое число n, у которого если последнюю цифру ');
   Writeln('перенести и поставить перед первой цифрой, то получится число, в два раза больше n');
end;

begin
   Task;
   Print;
end.