program laba2_2;
//Uses
//   Sys.Utils;
const n = 17;
type
   TArray = array[0..n] 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 := 0 to n do
      Write(Num[i]);
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;
      if Now >= 10 then
      begin
         Dec(Now, 10);
         Ost := 1;
      end;
      Num[i] := Now;
      Inc(i);
   until (Now = 2) and (Ost = 0);
   n := i;
   for i := 0 to (n - 1) div 2 do
   begin
      Temp := Num[i];
      Num[i] := Num[n - i - 1];
      Num[n - i - 1] := Temp;
   end;
   FindNumber := Num;
end;

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

begin
   Task;
   Print;
end.