2. Между командами ввода и вывода впишите в алгоритм несколько команд присваивания, в результате чего должен получиться алгоритм возведения в 4-ю степень введённого числа (дополнительные переменные, кроме A, не использовать):
Var a: integer; begin a := sqr(a); a := sqr(a); write(a); end.