Дано действительное число а.Не пользуйся никаким иными операциями, кроме умножения, получить

а) program zz1;

var   s, k, a:real;// задаем переменные реального типа

begin

write( введите данное действительное число a ); // вводим число с клавиатуры

read(a);

k:=a * a; // 1-ая операция возведения в квадрат

s:=k * k; // 2-ая операция возведения в квадрат

write(s:7:3); // выводим ответ

end.

б)program zz1;

var   v, s, k, a:real;// задаем переменные реального типа

begin

write( введите данное действительное число a ); // вводим число с клавиатуры

read(a);

k:=a * a; // 1-ая операция возведения в квадрат

s:=k * k; // 2-ая операция возведения в квадрат

v:=s * k; // 3-я операция возведения в квадрат

write(v:7:3); // выводим ответ

end.