var A, B, C: integer; // объявили три числа begin A: = 5; В: = 4; Writeln (А, '', Б); C: = A; // сохраним значение А в промежуточной ячейке A: = B; В: = С; Writeln (А, '', Б); конец. Решить задачу: Присвоить переменные A1 значения 25, значение А2 20. Поменять значения местами. Вычислить значение А3 = А1-А2. Вывести на экран значения в следующем порядке: А1, А2, А