Между командами ввода и вывода впишите в алгоритм несколько команд присваивания , в результате чего должен получится алгоритм возведения в 4-ю степень введенного числа( дополнительные переменные, кроме А, не использовать):

Var a:integer;Beginread(a);a:=a*a;a:= a*a;writeln(a);End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.