Если сумма трёх различных чисел А,В,С равна 2,то наибольшее из этих чисел заменить наименьшим,если сумма больше 20,то все числа возвести в квадрат,в противном случае наибольшее из этих трёх чисел заменить числом 34 — Pascal(Паскаль)

uses crt;

var
  a: array [1 .. 100] of integer;
  i, j, t, d: integer;

begin
  for i := 1 to 3 do
  begin
    read(a[i]);
  end;
  for i := (3 - 1) downto 1 do
    for j := 1 to i do
    begin
      if (a[j] > a[j + 1]) then
      begin
        t := a[j];
        a[j] := a[j + 1];
        a[j + 1] := t;
      end;
    end;
  d := a[1] + a[2] + a[3];
  if (d = 20) then
  begin
    a[3] := a[1];
  end
  else if (d > 20) then
  begin
    a[1] := sqr(a[1]);
    a[2] := sqr(a[2]);
    a[3] := sqr(a[3]);
  end
  else
  begin
    a[3] := 34;
  end;
  for i := 1 to 3 do
  begin
    write(a[i], ' ');
  end;
  readln;
  readln;

end.