Какой объем информации занимает черно-белое изображение размером 1024x768?​

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед

var s1, s2: string;

begin writeln('введите строку'); readln(s1); writeln('введите слово'); readln(s2); writeln('позиция слова в строке'); writeln(pos(s2, s1)); end.

d: /лето/фото/125.jpg

d: /документы/экзамен/информатика