//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a:=ReadInteger;
Println(a>0?a*a:a*a*a*a);
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString.OrderBy(c->c).ToArray;
var i:=s.FindIndex(t->t<>'0'); Swap(s[0],s[i]);
s.Println
end.
<u>Пример</u>
54560345345601323451233903454658345034521212
10000111222223333333334444444455555555566689
Делить байты на 1024. в 1 килобайте 1024 байт
1) 64 ⇒ 01000000
2) 58 ⇒ 00111010
3) 72 ⇒ 01001000
4) 96 ⇒ 01100000
1) 40*60 * 2 = 4800 Мбит = 600 Мбайт ~ 0,59 ГБайт