4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Например, если до обмена

program cycle;

var a, b, c, tmp: integer;

beginwriteln(\'Введите три числа через пробел\');readln(a, b, c);writeln(\'Значения переменных до обмена\');writeln(\'a = \',a, \'; b = \',b,\'; c = \', c, \'.\');writeln(\'Значения переменных после обмена\');tmp:=a; a:= b; b:= c; c:= tmp;writeln(\'a = \',a, \'; b = \',b,\'; c = \', c, \'.\');end.