Дано действительное число а. Не пользуйся никаким другими операциями, кроме умножения, получить: а) а4 за две операции; б) а6 за три операции

а) program zz1;

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

begin

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

read (a);

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

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

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

end.

б) program zz1;

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

begin

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

read (a);

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

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

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

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

end.