Даны 3 целых числа A,B,C, которые пользователь вводит с клавиатуры программа должна вывести на экран данные числа в порядке возрастания, если хоть 2 числа между собой равны, то запросить ввод данных заново.
Язык: Pascal.

var

 x1,x2,x3,middle:integer;

begin

 read(x1,x2,x3);

 while((x1=x2) or (x2=x3) or (x1=x3)) do begin

   write('Введите данные снова: ');

   read(x1,x2,x3);

   writeln();

 end;

 middle := (x1 + x2 + x3) - max(max(x1,x2),x3) - min(min(x1,x2),x3);

 write(min(min(x1,x2),x3) ,' ', middle ,' ' , max(max(x1,x2),x3));

end.