Нужно составить програмный код в lasarus на эту картинку. это , ! ​

Используем известный алгоритм, согласно которому нужно: а) перевести степень в двоичную систему счисления и отбросить самую левую единичку, получая битовую шкалу m. 45₁₀ = 101101₂, отбрасываем левую единицу, m=01101 б) положить результат r равным квадрату основания степени х: r=x² в) если значение самого левого бита равно 1, домножить r на х. у нас 0. далее для каждого последующего бита в порядке слева направо выполнять: г) возвести r в квадрат. если бит единичный, домножить r на х. в нашем случае: r=r²x; r=r²x r=r² r=r²x окончательно для x⁴⁵: r=x²; r=r²x; r=r²x; r=r²; r=r²x x²¹) 21₁₀ = 10101₂ ⇒ 0101; r=x²; r=r²x; r=r²; r=r²x x¹⁷) 17₁₀ = 10001₂ ⇒ 0001; r=x²; r=r²; r=r²; r=r²x x¹¹) 11₁₀ = 1011₂ ⇒ 011; r=x²; r=r²x; r=r²x

R: =sqr(sqr(sqr(sqr(sqr(x))*x)*x))*x; // 45 r: =sqr(sqr(sqr(sqr(x))*x))*x; // 21 r: =sqr(sqr(sqr(sqr(*x; // 17 r: =sqr(sqr(sqr(x))*x)*x; // 11 пример полной программы, реализующей такой алгоритм // pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! function dec2bin(x: integer): string; begin   var t: =x;   var r: string: ='';   while t> =2 do (r,t): =(t mod 2+r,t shr 1);   result: =t+r end; function pow(x: real; n: integer): real; // быстрое возведение в степень "слева направо" begin   var m: =dec2bin(n);   result: =x;   for var i: =2 to m.length do begin       result: =sqr(result);       if m[i]='1' then result*=x       end end; begin   var x: =readreal('укажите основание х: ');   var n: =readinteger('укажите степень n: ');   writeln(x,'^',n,' = ',pow(x,n)) end. примеры укажите основание х: 0.918 укажите степень n: 39 0.918^39 = 0.0355520433528712 укажите основание х: -2 укажите степень n: 15 -2^15 = -32768 укажите основание х: 12.6 укажите степень n: 23 12.6^23 = 2.03480378921486e+25