Дано а.не пользуясь никакими другими арифметическими опперациями кроме умножения получить а^9 за 4 оппереции

Нам такое на кумире задавали, если вам тоже, алг       нач           цел a, b            ввод a              b : = a * a;               b : = b * b;               b : = b * b;               b : = a * b;               вывод b       кон на pascal: var a, b: integer; begin      readln(a);       b : = a * a;       b : = b * b;       b : = b * b;       b : = a * b;       writeln(b); end.

Sqr(a)*sqr(a)*sqr(a)*sqr(a)*a

Var s: string; i, j, k: integer; a: array [1..256] of char; begin readln(s); for i: = 1 to length(s) do begin     for j: = 1 to k do         if a[j] = s[i] then begin             writeln('есть');             exit;             end;     a[i]: = s[i];     inc(k);       end; writeln('нет'); end. попрошу отметить, как лучшее решение

  иван-дурак             -   конь   али-баба                 -     пещера с сокровищами мышка-норушка     -   теремок иван-царевич         -   избушка на курьей ножке лиса -                   колобок, колобок, спой мне песенку! - колобок королевич  елисей     -         ветер, ветер!   ты могуч, ты гоняешь стаи туч  ты волнуешь сине море,всюду веешь на просторе. не боишься никого, кроме бога одного. аль откажешь мне в ответе? не видал ли где на свете  ты царевны молодой?                                 -       ветер   королевич елисей                     месяц, месяц, мой дружок, рожок! ты встаешь во тьме глубокой, круглолицый, светлоокий, и, обычай твой любя, звезды смотрят на тебя. аль откажешь мне в ответе? не видал ли где на свете  ты царевны молодой?                                               -     месяц