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

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программка не работает, обновите версию!

1

begin
  var a:=ReadReal('Основание a =');
  var n:=ReadInteger('Показатель стпепени n =');
  Writeln('Степень одинакова ',a**n)
end.

Пример
Основание a = 3.17
Показатель стпепени n = 6
Степень одинакова 1014.74185323017

9

begin
  var s:=ReadlnString('Введите последовательность цифр через пробел:');
  s.Where(c-gt;clt;gt;' ').JoinIntoString.Inverse.ToBigInteger.Println
end.

Пример
Введите последовательность цифр через пробел: 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7
7890123456789012345