Разберем по шагам:
1. `A := 3;` – A присваивается значение 3.
2. `B := 5;` – B присваивается значение 5.
3. `A := 2*A - B;` – Вычисляется новое значение A: `A = 2 * 3 - 5 = 6 - 5 = 1`.
4. `B := (-A)^2` – Вычисляется новое значение B: `B = (-1)^2 = 1`.
Ответ: A = 1, B = 1