Write in Pascal a program for cyclic exchange of values of three variables a, b, c.

Write in Pascal a program for cyclic exchange of values of three variables a, b, c. For example, if before the exchange it was: a = 1, b = 2, c = 3, then after the exchange it should become: a = 2, b = 3, c = 1.

program cycle;

var a, b, c, tmp: integer;

begin
writeln (‘Enter three numbers separated by a space’);
readln (a, b, c);
writeln (‘Values of variables before exchange’);
writeln (‘a =’, a, ‘; b =’, b, ‘; c =’, c, ‘.’);
writeln (‘Values of variables after exchange’);
tmp: = a; a: = b; b: = c; c: = tmp;
writeln (‘a =’, a, ‘; b =’, b, ‘; c =’, c, ‘.’);
end.