В borland pascal типа данных, который может вместить такое число, нету. может создать массив, хранить в нем разряды числа, а при выводе соединять в одно число.
либо перейди на free pascal. там int64 тебе идеально подойдет.
2^5 = 32 < 59 <= 64 = 2^6, т.е. необходимо 6 бит для кодирования каждой комбинации
Тогда инфообъём = 6*80 бит = 6*10 байт = 60 байт
Var a,b,c,d:integer;
begin
readln(a,b,c,d);
writeln('Нельзя составить треугольник из:');
if (a+b<=c)or(a+c<=b)or(b+c<=a) then writeln(a,' ',b,' ',c);
if (a+b<=d)or(a+d<=b)or(b+d<=a) then writeln(a,' ',b,' ',d);
if (a+c<=d)or(a+d<=c)or(c+d<=a) then writeln(a,' ',c,' ',d);
if (b+c<=d)or(b+d<=c)or(c+d<=b) then writeln(b,' ',c,' ',d);
end.
Пример:
1 2 3 4
<span>Нельзя составить треугольник из:
1 2 3
1 2 4
1 3 4</span>
Var a,b,x,s:integer;
begin
write('a = ');
readln(a);
write('x = ');
readln(x);
b:=a;
s:=0;
while b>0 do
begin
s:=s+b mod 10;
b:=b div 10;
end;
writeln('s = ',s);
if s>x
then writeln('Сумма цифр больше ',x)
else writeln('Сумма цифр не больше ',x);
end.
Пример:
<span>a = 31854
x = 15
s = 21
Сумма цифр больше 15</span>
Блок-схема - в прилагаемом файле.