Лови. может напутал в составных каши, не повар хд
Информация уменьшилась в 6 раз(2^6), всего шаров 64
114412 из двенадцатиричной в двоичную <span>1000011101001001110 </span>
Var a,b,c: integer;
begin
writeln('Введите числа');
readln(a,b,c);
if a<0 then writeln(a,' отрицательное');
if b<0 then writeln(b,' отрицательное');
if c<0 then writeln(c,' отрицательное');
end.