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.
о​

Program p1;
var
n,a,i,max,fl:integer;
begin
writeln('Введите кол-во участников>>');
readln(n);
max:=0; fl:=0;
for i:=1 to n do
 begin
 writeln('Введите кол-во правильных ответов, данных участником ',i); 
 readln(a);
 if (a > max) then max:=a;
 if a=0 then fl:=1;
 end;
if fl=1 then writeln('YES') else writeln('NO');
writeln('Победитель набрал ',max,' ');
end.

Пример:
Введите кол-во участников>> 5
Введите кол-во правильных ответов, данных участником 1 15
Введите кол-во правильных ответов, данных участником 2 18
Введите кол-во правильных ответов, данных участником 3 0
Введите кол-во правильных ответов, данных участником 4 8
Введите кол-во правильных ответов, данных участником 5 10
YES
Победитель набрал

Чтобы предмет с прямоугольным поперечным сечением в прямоугольное отверстие размером m×n, нужно чтобы минимальный размер стороны отверстия был больше минимального размера в сечении предмета, а максимальный размер стороны отверстия был больше максимального размера в сечении предмета.
Выражение min(a,b) < min(m,n) ∧ max(a,b) < max(m,n) должно принимать значение "истина".

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadReal2('Введите через пробел размеры балки:');
  var (m,n):=ReadReal2('введите через пробел размеры отверстия:');
  if  (Min(a,b)<Min(m,n)) and (Max(a,b)<Max(m,n)) then
    Writeln('Балка проходит в отверстие')
  else Writeln('Балка не проходит в отверстие')
end.

Пример
Введите через пробел размеры балки: 3.6 4.8
введите через пробел размеры отверстия: 4.2 4
Балка не проходит в отверстие