Как определить вес файла в мегабайтах размером 256024 байт,1024 байт​

Могут получиться числа 101, 1810, 112. Всего 3 числа
Число 1014 не может получиться, так как суммы цифр должны располагаться в порядке не возрастания, а 10<14
Число 1205 не может получиться, так как, здесь могут быть только суммы 12 и 5, а это дает число 125, а не 1205
Число 101 может получиться, например, из числа 5015 или 6104 (суммы 10 и 1)
Число 1810 может получиться из 9559 или 6994 (суммы 18 и 10)
Число 112 может получиться из 5116 или 2740 (суммы 11 и 2)
Число 1918 не может получиться, так как сумма двух цифр не может быть = 19

Program z1;  Var a,b,c,d,e,f,s:string;Begin  write('Введите название животного - ');  readln(s);  writeln;  a:='кошка';  b:='собака';  c:='птица';  d:='мышь';  e:='лиса';  f:='волк';  if (s=a) then writeln(s,' - cat')           else if (s=b) then writeln(s,' - dog')                         else if (s=c) then writeln(s,' - bird')                                       else if (s=d) then writeln(s,' - mouse')                                                     else if (s=e) then writeln(s,' - fox')                                                                   else if (s=f) then writeln(s,' - wolf')                                                                                 else writeln('Таких животных в базе нету');  End.