На ввод числа через пробел в порядке невозрастания. если числа одинаковы, то записать их в одну строку. если нет, то записать на следующей. последовательность чисел заканчивается нулем.

Var  a1,b2,c3:integer;beginreadln(a1,b2,c3);if (a1=b2)and(b2=c3)then writeln(a1+' '+b2+' '+c3)else begin write(a1); writeln(); write(b2);writeln(); write(c3); end;
end.