Присвоить переменной A1значение 25, переменной А2 значение 20. Поменять значения переменных местами. Вычислить значение переменной А3=А1-А2.

Первое действие:

А1 = 25

А2 = 20

Второе действие:

А1 = 20

А2 = 25

Третье дествие:

А3 = А1 - А2

А3 = 20 - 25 = -5

var

A1,A2,A3: Integer;

begin

A1 := 25;

A2 := 20;

A1 := A1 +A2;

A2 := A2 - A1;

A2 := -A2;

A1 := A1 - A2;

A3 := A1 - A2;

writeln(A3)

end.