Пример полезной информации, заранее если )

Информация  о  составе  продукта, инструкция  к  какому-либо  предмету

Если 25 на 45 это сантиметры то делаем так переводим сантиметры в дюймы 25  / 2.5 = 10 дюймов 45 / 2.5 = 18 дюймов узнаем количество пикселей отсканированного изображения (10*600) *  (18*600) = 64800000 точек узнаем глубину цвета в битах 2 байта * 8 = 16 бит объём информации  64800000 точек   *   16 бит   =   1036800000 бит 1036800000 бит   /   8 = 129600000 байт 129600000 байт / 1024 = 126562,5 кбайт 126562,5 кбайт   /   1024 = 123,59 мбайт   = 124 мбайт

Var i, c,t: integer; a: array[0..9] of integer; begin a[0]: =6; a[1]: =7; a[2]: =5; a[3]: =8; a[4]: =3; a[5]: =2; a[6]: =0; a[7]: =1; a[8]: =9; a[9]: =4; c: =0; for i: = 0 to 9 do     //ошибка либо в условии либо в коде     if a[i]< a[0]       then           begin                 c: =c + 1;                 t: =a[i];               a[i]: = a[0];               a[0]: = t;           end; writeln('c= ', c); readln; end.ответ:   c=4