Во фразе 39 символов (включая пробелы и знаки препинания)
39*16 = 624 бит
Program danya;uses crt;var a,b,c:integer;beginclrscr;for a:=1 to 1000 do begin for b:=1 to 1000 do begin for c:=1 to 1000 do begin if (a+b+c=407) and (a*b*c mod 1000000 = 0) then writeln ('',a,' ',b,' ',c); end; end;end;<span>end.</span>
"-" влияет собственно только на знак перед полученным результатом.
=