4. Запишите на языке Паскаль программку повторяющегося обмена значениями трёх переменных

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.