var
 a: array[1..100] of Integer; //не помню точно как там массив
 n,i,x1,x2,x3:integer;
begin
 n:=50; //или сколько там надо можно с клавы ввести.
 //тут надо будет заставить проверяющего ввести эти n чисел.
 x1:=0;
 x2:=0;
 x3:=0;
 for i=2 to n
 begin
    //первый пункт считаем
    if ((a[i]>0) and (a[-1]>0)) then x1:= x1 1;
    //второй пункт считаем
    if ((a[i]>0) and (a[-1]<0)) then x2:= x2 1;
    if ((a[i]<0) and (a[-1]>0)) then x2:= x2 1;
    //третий пункт считаем
    if ((a[i]>0) and (a[-1]>0) and (mod(a[i])<mod(a[i-1]))) then x3:= x3 1;
    if ((a[i]<0) and (a[-1]<0) and (mod(a[i])<mod(a[i-1]))) then x3:= x3 1;
 end;
writeln (x1,x2,x3);
end. //точка же вроде в конце?