Выберите одну из категорий встроенных функций и проанализируйте функции данной категории.​

размер объекта- эскиз

форму реального объекта - чертежа

  цвет объекта-рисунка

  элементный состав объекта   -схемы

  отношения между объектами - диаграммы эйлера-венна

  стоимость объекта   -числа

объект-фотографии 

все слова по 6 букв, в каждом в середине находится "оро", в каждом присутствуют одни и те же гласные на тех же местах

var

a: array[1..100] of integer;

i,s,r: integer;  

begin

for i: =1 to 100 do read(a[i]);

for i: =1 to 100 do

begin

if a[i]< 0 then r: =r+a[i] else s: =s+a[i];

end;

writeln('сумма всех положительных чисел= ',s);

writeln('сумма всех отрицательных чисел= ',r);

readln

end.

посчитает максимум 100 чисел.