var n:array[1..3] of array of byte; //Содержит 3 массива, содержащие цифры 3 введенных чисел len:array[1..3] of byte; //Содержит количества цифр в введенных числах input:array of string; input0:string; i,j:byte; uint64 //Функция, сравнивающая числа под номерами a и b. Возвращает True, если первое больше. //Сначала сравниваются количества цифр, затем, поразрядно, цифры function morethan(a,b:byte):boolean; var k:byte; begin if len[a]>len[b] then morethan:=True else if len[a]n[b][k] then begin morethan:=True; break; end else if n[a][k]