А? ) запишите алгоритм циклического обмена значениями трёх переменных a, b, c. схема циклического обмена: a–›b–›c (цикл. от "с" снова к "а" например, если до обмена было: а=1, b=2, c=3, то после обмена должно стать: а=3, b=1, c=2. выполнила трассировку.

Var a,b,c,d:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
d:=c;
c:=b;
b:=a;
a:=d;
writeln('a=',a,'  b=',b,'  c=',c);
end.

Пример:
a=1
b=2
c=3
a=3  b=1  c=2

//PascalABC.Net 3.1 сборка 1200
uses System;

begin
    var Replace4to16 := new Dictionary<string, string>();
    Replace4to16.Add('00', '0');
    Replace4to16.Add('01', '1');
    Replace4to16.Add('02', '2');
    Replace4to16.Add('03', '3');
    Replace4to16.Add('10', '4');
    Replace4to16.Add('11', '5');
    Replace4to16.Add('12', '6');
    Replace4to16.Add('13', '7');
    Replace4to16.Add('20', '8');
    Replace4to16.Add('21', '9');
    Replace4to16.Add('22', 'a');
    Replace4to16.Add('23', 'b');
    Replace4to16.Add('30', 'c');
    Replace4to16.Add('31', 'd');
    Replace4to16.Add('32', 'e');
    Replace4to16.Add('33', 'f');
    
    var n4 := ReadString('a_4 = ');
    if n4.Length mod 2 = 1 then n4 := '0' + n4;
    
    var n16 := '';
    for var i := 0 to n4.Length div 2 - 1 do
        if Replace4to16.ContainsKey(n4.Substring(2 * i, 2)) then
            n16 += Replace4to16[n4.Substring(2 * i, 2)]
        else writeln('Неверные знаки "', n4.Substring(2 * i, 2), '" в числе');
    
    writeln(n16);
end.

Var
    x, y: array[1..100] of integer;
    i, n, k: integer;
    min, max: integer;

begin
    {ввод массива}
    write('n = ');
    readln(n);
    
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        readln(x[i]);
        
    end;
    writeln();
    
    {минимум и максимум}
    max := x[1];
    min := x[1];
    for i := 1 to n do
    begin
        if max < x[i] then max := x[i];
        if min > x[i] then min := x[i];
    end;
    writeln('max = ', max);
    writeln('min = ', min);
    writeln('avg = ', (max + min) / 2);
    
    max := (max + min) / 2;
    k := 0;
    for i := 1 to n do
    begin
        if x[i] >= max then begin
            k := k + 1;
            y[k] := x[i];
            write(y[k], ' ');
        end;
    end;
end.