1/16 Кбайт=?

рисунок размером 1024*768 точек и глубиной цвета 32 бита на точку. Определить
объем графического файла, хранящего такой рисунок. Каков будет объем файла при
коэффициенте сжатия 0,2?

Program test;
uses crt;
Const
N=5;
var a : array [1..N] of integer;
var i , Max , k , t , f : integer;
begin
For i:=1 to N do
A[i]:=random(8);
write ('Массив');
writeln;
For i:=1 to N do
begin
write (A[i]);
write (' ');
end;
writeln;
For i:=1 to (N-1) do
begin
Max:=A[i];
For k:=i+1 to N do
If (A[k]>Max) then
begin
Max:=A[k];
f:=k;
end;
t:=A[i];
A[i]:=A[f];
A[f]:=t;
end;
write ('Упорядоченный массив');
writeln;
For i:=1 to N do
begin
write (A[i]);
write (' ');
end;
end.
После end должна стоять запятая...это же цикл , надеюсь на вашу помощь...

элементов А,В,С, т.е. Di=MAX{Ai,Bi,Ci}. Нахождение максимального значения оформить в виде подпрограммы.а вот подпрограмма:

Procedure FindMax(A,B,C:real; Var D:real);
Begin
if (A>B)and(A>C) then D:=A;
if (A<B)and(B>C) then D:=B;
if (C>B)and(A<C) then D:=C;
End;
Var
A,B,C,D:array[1..10] of real;
i:integer;
Begin
Write('A: ');
For i:=1 to 10 do
Begin
A[i]:=random(100)-25;
Write(A[i],' ');
End;
WriteLn;
Write('B: ');

сохраненный на диске объемом 126 Кбайт
2 Для хранения изображения размером 128*128 точек выделено 16 Кбайт памяти. Определите, какое максимальное число цветов а палитре

файл,сжатие данных не производится. Получен файл размером 4000 Кбайт. определите глубину звука(разрешения)в битах
варианты ответов 2;8;16;24

каждой странице 64 строки по 32символа в строке