Очень срочно помогите

Question

Очень срочно помогите

---

Answer 1

Read(a); {Ввод}

A:=A*A;

A:=A*A;

Write(A);{Вывод}

Не уверен, что требовалось. Скорее можно просто:

A:=A*A; {возведение в квадрат}

A:=A*A; {возведение в 4-ую степень}