Даны три действительных числа. Если только два из них равны между собой, то возвести все числа в квадрат и напечатать в противном случае напечатать все три числа. Написать программу
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.