10-20 переменных похожего смысла надо объединять в массив. Тогда и не будет вопросов, как найти наибольшее. Иначе будет громадный и дико медленный алгоритм на пару листов кода.
Насчет "без всяких циклов и сравнений" вообще не понял - само слово "наибольшее" означает, что оно больше других, то есть его сравнение с остальными. Как можно сравнить с остальными, не сравнивая?
И чем циклы не угодили - тоже вопрос.
Если очень надо без циклов и без массива - то как-то так:
Код:
var a,b,c,d,e,f,........:word;
max:integer;
...
max:=0;
if a>max then max:=a;
if b>max then max:=b;
if c>max then max:=c;
.........
НО ЭТО БРЕД!