Program One;
var
a, b, c: real;
count : byte;
begin
readln (a, b, c);
count := 0;<span>
if a < 0 then inc (count);</span>
if b < 0 then inc (count);
if c < 0 then inc (count);
wrireln (count);
<span>end.
Надеюсь на лучший ответ:)</span>
И вниз..жесткий диск, процессор, оперативная память
49152 бит = 49152 / 8 байт = 6144 байт
1,3
......................