Дан массив из 18 элементов заполнить его случайными числами. Вывести на экран элемент если он равен кубу его порядкового номера (те mas{4} = 64, тогда выводим на экран 64 и т.д). Решить в Pascal ABC

26 заглавных букв + 26 строчных букв + 10 цифр + 6 символов = 68 знаков используются в паролях.

Один такой знак занимает минимально 7 бит (2^6=64 < 68 < 128=2^7). 
Но символы кодируют целым числом байт. значит по 1 байту (8 бит) на символ. Длина пароля равна 12 символов, которые занимают 12 байт.

Всего выделено 1080 байт на 40 пользователей, то есть 1080/40 = 27 байт на одного пользователя.

Из них 12 байт занято под пароль. Остается 27-12=15 байт можно использовать для хранения дополнительных сведений о каждом пользователе

Алгоритм
1) a x a = a² ⇒ b;    b x a = a³ ⇒ результат
2) a x a = a² ⇒ b;    b x b = a⁴ ⇒ c;   c x c = a⁸ ⇒ c;   c x b = a¹⁰ ⇒ результат

Программа на языке PascalABC.Net
var
  a,b,c,y:real;
begin
  Write('Введите число: '); Read(a);
  b:=a*a; y:=b*a; Writeln('Третья степень числа равна ',y);
  c:=b*b; c:=c*c; y:=b*c;
  Writeln('Десятая степень числа равна ',y)
end.

Тестовые решения:
Введите число: 2
Третья степень числа равна 8
Десятая степень числа равна 1024

Введите число: -13.594
Третья степень числа равна -2512.128188584
Десятая степень числа равна 215512594781.574