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

var a,b,c,a1,b1,c1:real;

begin

readln(a,b,c);

b1:=a;

c1:=b;

a1:=c;

writeln(a1,b1,c1);

end.

program cikl;

var a,b,c,i,j,k:integer;

begin

writeln('BBedute A,B,C');

readln(a,b,c);

i:=a;

j:=b;

k:=c;

a:=j;

b:=k;

c:=i;

writeln('a=',a,'b=',b,'c=',c);

readln

end.