По заданному числу х и р вычислить х в степени р. заранее ! язык программирования pascal

Program zadanie; var x,p: real; begin   writeln('введите значения переменных x и p');   readln(x,p);   x: =x^p;   writeln(' =',x); end.

// pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   var a: =matrfill(m,n,0);   for var i: =0 to m-1 do       for var j: =0 to n-1 do read(a[i,j]);   writeln('в 5-й строке число 13 встречено в колонке ',       a.row(4).indexof(13)+1) end. пример количество строк в массиве: 7 количество столбцов в массиве: 8 -4 10 -6 19 -3 -6 18 -9 16 12 18 8 14 11 4 10 -10 -4 -7 13 11 -4 4 -2 -6 1 11 8 1 11 7 8 18 6 14 -7 -8 13 5 13 -1 6 14 8 -5 11 -2 -5 20 16 7 -4 6 5 20 -10 в 5-й строке число 13 встречено в колонке 6

1. переводим число в двоичную систему 168.625₁₀ = 10101000.101₂2. сдвигаем точку влево так, чтобы она отделяла в целой части только одну цифру и фиксируем величину сдвига, как двоичный порядок10101000.101₂ = 1.0101000101₂×2⁷3. отбрасываем целую часть, получая мантиссу 0101000101₂4. прибавляем к порядку 1277+127 = 134₁₀ = 10000110₂5. приписываем к порядку его знак - 0 (сдвиг был влево), получая010000110₂6. приписываем справа мантиссу и дополняем её нулями справа до 32 разрядов01000011001010001010000000000000₂ = 01000011 00101000 10100000 00000000₂ 7. переводим результат в шестнадцатиричную систему счисления, заменяя каждые 4 двоичных цифры соответствующей шестнадцатиричной 01000011 00101000 10100000 00000000₂ = 43 28 a0 00₁₆