//Pascal ABC.NET v3.0 сборка 1111
var
ar:array of integer;
n:integer;
begin
n:=0;
setlength(ar,n+1);
readln(ar[n]);
while ar[n]<>0 do
begin
inc(n);
setlength(ar,n+1);
readln(ar[n]);
end;
sort(ar);
ar.Print(' ');
<span>end.</span>
1) 346 (8) - 64 (8) = 262 (8)
2) 1022 (16) - 5А (16) = FC8 (16)
3) 24ECI * 22 = 4E758 (16)
-•- (к)
--- (о)
-- (м)
•--• (п)
•- (а)
••• (с)
КОМПАС