28 ! петя решил придумать свой шифр. он взял данную ниже кодировочную таблицу и для каждого десятичного кода произвел замену первой цифры в коде на последнюю цифру.дана таблица, нужно заполнить: петин десятичный код. заш. слов.122102902 ? ? мышь391302602202 ?

Ну, поскольку уточнения по задаче не получил, буду считать, что цифра 1 может встречаться ровно два раза в КАЖДОЙ комбинаций (в противном случае ответ, конечно, будет другой):

Всего используется 4 знака.Нормализуем последовательность к нулю , от этого количество комбинаций не изменится:
было : 111111 - 44444
стало:  00000 - 33333

Исключаем из общего количества комбинаций комбинации с двумя единицами (всего 9):
11ххх 1х1хх 1хх1х 1ххх1
х11хх х1х1х х1хх1
хх11х хх1х1
ххх11
значимыми остаются только 3 разряда из 5.
333 в 4-ричной системе счиления равно 63 в 10-ричной. - именно столько комбинаций будет при условии, что  два разряда выставлены в единицы.
9х63=563 - столько комбинаций будет всего.

По моему так:
program p;
var
a,b,c:integer;
begin
writeln('первое число:');
readln(a);
writeln('второе число:');
readln(b);
writeln('третие число:');
readln(c);
if (a>b) and (a>c) then
writeln('Первое число является наибольшим');
if (a>b) and (a<c) or (a<b) and (a>c) then
writeln('Первое число является средним');
if (a<b) and (a<c) then
writeln('Первое число является наимешим');
if (b>a) and (b>c) then
writeln('Второе число является наибольшим');
if (b>a) and (b<c) or (b<a) and (b>c) then
writeln('Второе число является средним');
if (b<a) and (b<c) then
writeln('Второе число является наимешим');
if (c>b) and (c>a) then
writeln('Третие число является наибольшим');
if (c>b) and (c<a) or (c<b) and (c>a) then
writeln('Третие число является средним');
if (c<b) and (c<a) then
writeln('Третие число является наимешим');
end.