Дано действительное число х не пользуясь никакими другими арифметическими операциями кроме умножения получить х^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

var a: integer;

begin

writeln ('vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');  

  if (a=4) then writeln ('31');  

  if (a=5) then writeln ('30');  

  if (a=6) then writeln ('31');  

  if (a=7) then writeln ('30');  

  if (a=8) then writeln ('31');  

  if (a=9) then writeln ('30');  

  if (a=10) then writeln ('31');  

  if (a=11) then writeln ('30');  

  if (a=12) then writeln ('31');  

end. 

хвалебный