Вообще-то это уже в двоичной системе. 0 и 1 - Двоичная система.
Дано:
1024 пикселей ширина
768 пикселей высота картинки
16 бит вес одного пикселя
Решение
(1024 * 768) пикс * 16 бит пикс * 75 раз * 1 сек = 943718400 бит объём
// процедура обмена значений переменных а и b
procedure swapp(var a,b:integer);
var c: integer;
begin
c:=a;
a:=b;
b:=c;
end;
// основная программа
var a,b,c: integer;
begin
write('числа a b c через пробел: ');
readln(a,b,c);
if a>b then swapp(a,b);
if b>c then swapp(b,c);
writeln('среднее по значению: ',b);
end.
Ввод -вывод:
числа a b c через пробел: 25 14 18
среднее по значению: 18
var
<span> a,b,c:integer;
</span><span><span> begin
</span>
read(a,b,c);
</span><span> writeln(a,'+',b,'+',c,'=',a+b+c);
</span><span> writeln(a,'*',b,'*',c,'=',a*b*c);
</span><span> writeln('(',a,'+',b,'+',c,')/3=',(a+b+c)/3:4:3);
</span><span>
end.</span>