напишите пожалуйста код на первое и последнее
срочноооооооо

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!№1begin  var a:=ReadReal('Основание a =');  var n:=ReadInteger('Показатель стпепени n =');  Writeln('Степень равна ',a**n)end.ПримерОснование a = 3.17Показатель стпепени n = 6Степень равна 1014.74185323017№9begin  var s:=ReadlnString('Введите последовательность цифр через пробел:');  s.Where(c->c<>' ').JoinIntoString.Inverse.ToBigInteger.Printlnend.ПримерВведите последовательность цифр через пробел: 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 77890123456789012345