Дано: A,B,C. Если числа неравные, напечатать квадраты этих чисел в порядке их убывания,. В противном случае напечатать сообщение вида «А=В» или «В=С» или «А=С». — Pascal(Паскаль)

var
  a: array [1 .. 3] of longint;
  i, j, b: longint;

begin
  for i := 1 to 3 do
    readln(a[i]);

  for i := 1 to 2 do
    for j := 1 to 3 - i do
      if a[j] > a[j + 1] then
      begin
        b := a[j + 1];
        a[j + 1] := a[j];
        a[j] := b;
      end;

  if (a[1] = a[2]) then
    writeln('A=B');
  if (a[2] = a[3]) then
    writeln('B=C')
  else
    for i := 3 downto 1 do
      write(sqr(a[i]), ' ');

end.