Program C4;
var mas: array: [0..9] array of integer;
k, max, min, i:integer;
x:char;
begin
for i: 0 to 9 do mas[i]:=0;{зануляем массив}
max:=0;
min:=0;
read(x);
while x<>'.' do
begin
k:=(ord(x)-ord('0');
mas[k]:=mas[k]+1;
read(x);
end;
for i:=0 to 9 do
if mas[i]>max then max:=mas[i];
while min<>max do
begin
min:=min+1;
for i:=0 to 9 do
if mas[i]=min then write(i);
end;
end.

Надеюсь на 90 с копейками за экзамен

qeIP, читаются символы в цикле while
read(x);
while x<>'.' do
begin
k:=(ord(x)-ord('0');
mas[k]:=mas[k]+1;
read(x);

А вот последняя часть мне не очень понятна, там должна быть сортировка по возрастанию, а я вижу определили мах, а дальше ...
Поняла, кажется, печатаются в порядке возрастания цифры, которые встречаются 1 раз, 2 раза и т.д. т.е. идет перебор возможного количества повторения от 1 до мах.
Еще раз убедилась, как трудно понимать чужую логику...как только видишь алфавитный порядок или по возрастанию, ожидаешь увидеть стандартную сортировку...
я бы поставила 4