8*. Один з найдавніших шифрів роз- робив Полібій (ІІІ ст. до н.е.) -
1 2 3 4
грецький історик, полководець,
державний діяч. Ушифрі, який 1 А. Б в г/д
назвали «квадрат Полібія», кожна
літера алфавіту (або пара літер, 2
Ж зий / K
що відповідають близьким за ви-
3 Л
мовою звукам) міститься в табли-
M Н
P
оп
ці. Під час кодування повідомлен-
4 С T у
Х Ц
ня кожна літера замінюється па-
рою цифр - номерами стовпця та
5 प III Ш
Ю Я
рядка таблиці, на перетині яких
вона розміщена. Для кодування
повідомлень українською мовою
Квадрат Полібія
може бути використана таблиця, зображена праворуч.
Декодуйте повідомлення, закодовані за розглянутими вище прави-
лами з використанням наведеної таблиці:
а) 53 43 13 52 21 52 42; б) 62 43 51 34 31 11 33 33 65.
о​

  начало

                                                  делим на 2

                          есть остаток                               нет остатка

                          возводим в куб                         возводим в кводрат

                                                    конец        

По моему так:
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.