Между командами ввода и вывода впишите в алгоритм несколько команд присваивания , в результате чего должен получится алгоритм возведения в 4-ю степень введенного числа( дополнительные переменные, кроме А, не использовать):
Var a:integer; Begin read(a); a:=a*a; a:= a*a; writeln(a); End.