Даны три действительных числа. если только два из них равны между собой, то возвести все числа в квадрат и напечатать в противном случае напечатать все три числа. написать программу

Var
  a, b, c : real;
begin
  read (a, b, c);
  if (a = b) xor (b = c) xor (a = c) then // если только одно из равенств верно
  write (sqr (a), ' ', sqr (b), ' ', sqr (c))
  else write (a, ' ', b, ' ', c);
end.