Напишите алгоритм морфологического разбора прилагательных.

морфологические признаки: а) постоянные: качественное; б) непостоянные: нулевая степень сравнения, полная форма, единственное число, средний род, творительный падеж.

а после 18 какое число идет? ? если 108 ,то тогда получается так 2*3=6, 3*6=18, 6*18=108,получается что первое число умножается на второе,второе на третье,третье на четверное и т.д

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.