Определите, какие значения принимают выражения, если A=1, B=0, C=0

а)сумм(a5: b7)

б)срзнач(c4: c7)

в1+в2=5

(в1+в2+в3)/3=3

(5+в3)/3=3

5+в3=9

в3=4 

5`120`000 бит =  640 000 байт = 625 кб

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.