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

program cycle;

var a, b, c, tmp: integer;

begin

writeln ('Введите три числа через пробел');

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.