Дано действительное число х не пользуясь никакими другими арифметическими операциями кроме умножения получить х^4,х^12,x^28 за шесть операций нужно только рассписать, чтобы я могла ввести решение в програму паскаль.

a : = x * x;   //x**2

b : = a * a;   //x**4

c : = b * b;   //x**8

d : = b * c;   //x**12

e : = c * c;   //x**16

f : = e * d; //x**28

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.

часть схемы, информацию - канал.