Что будет напечатано программой, если для ввода заданы числа 2, 3 и 1? var a, b: integer; begin read (a, b, a); writeln (b, a, b, a) end.

При выполнении данной программы вводятся три числа 2, 3, 1. Однако эти числа прописываются лишь две переменных, то есть при вводе числа 2 получим : a:=2; при вводе числа 3 получим : b:=3; При вводе числа 1 получим : a:=1. Значит, изначальное значение 2, которое находилось в переменной a, попросту затерлось новым значением 1, которое считали в ту же самую переменную a. Итого, про значение 2 забываем и при выводе получаем 3; 1; 3; 1.