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

program zz1;

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

begin

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

read(a);

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

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

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

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

write(p:7:0); // выводим ответ

end.