Скласти програму для обчислення всiх двоцифрових чисел

Var i,s,p,max: integer; a: array[1..10] of integer;     // описание переменных begin s: =0; p: =1; max: =1;   for i: =1 to 10 do        // цикл в котором находится:   begin   a[i]: =random(100);   // генерация рандом чисел   write(a[i]: 5);             // вывод всего массива   s: =s+a[i];                 // нахождение суммы   p: =p*a[i];                 // нахождение произведения   end; for i: =1 to 10 do            // цикл для нахождения максимального в массиве   if a[i]> max then max: =a[i]; writeln; writeln('summa: ',s);                   // все что ниже вывод резельтатов. writeln('proizvedenie: ',p); writeln('maximalnoe: ',max); end.

Втекстовом сообщении каждая буква кодируется 1 (при кодировке ansi) или 2 (при кодировке unicode) байтами. объем сообщения равен количеству букв, умноженному на объем буквы. в растровом рисунке каждый пиксель (точка) кодируется 1, 2, 3 байтами, в зависимости от глубины цифровой палитры. если пиксель = 1 байту = 8 бит, то в палитре 2^8 = 256 цветов. если пиксель = 2 байта = 16 бит, то в палитре 2^16 цветов (hicolor). если пиксель = 3 байта = 24 бит, то в палитре 2^24 цветов (truecolor). объем рисунка равен количеству точек, умноженному на объем точки.