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

Предыдущий
вопрос Следующий
вопрос

program exchangeValues;
var
a, b, c, temp: integer;
begin
a := 1;
b := 2;
c := 3;
writeln('Before exchange: a=', a, ' b=', b, ' c=', c);
temp := a;
a := c;
c := b;
b := temp;
writeln('After exchange: a=', a, ' b=', b, ' c=', c);
end.