program laba2_2;
Uses
   Sys.Utils;
const n = 100;
type
   TArray = array[1..n] of Integer;

procedure Print(n: Integer; Num: TArray); forward;
procedure FindNumber; forward;
procedure Task; forward;

procedure Print(n: Integer; Num: TArray);
var i: Integer;
begin
   Write('Найденное число: ');
   for i := n downto 1 do
      Write(Num[i]);
end;

procedure FindNumber;
var
Num: Tarray;
Now, i, Ost: Integer;
begin
   Now := 2;
   Ost := 0;
   i := 0;
   repeat
      Inc(i);
      Now := Now * 2 + Ost;
      if Now < 10 then
         Ost := 0;
      if Now >= 10 then
      begin
         Dec(Now, 10);
         Ost := 1;
      end;
      Num[i] := Now;
   until (Now = 2) and (Ost = 0);
   Print(i, Num);
end;

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

begin
   Task;
   FindNumber;
end.