sequential;

v226:=0;
v227:=0;
v228:=0;
v229:=0;
v230:=0;
v231:=0;

for i := 5 to 35 do
	
begin
	if trunc(i/2)=(i/2) then 
	begin
	end
		
		else
		
		if v(i)=1 then							{for early memories}
			begin
				if v(i+1)>0 then v40:= v40 + 1		         {for type = positive}

				else
					if v(i+1)<0 then v41:= v41 + 1	         {for type = negative}
				
				else
					if v(i+1)=0 then v42:= v42 + 1	         {for type = 0}
		
			end
	
		else									{for recent memories}
			begin									
				if v(i+1)>0 then v43:= v43 + 1			{for type = positive}

				else
					if v(i+1)<0 then v44:= v44 + 1		{for type = negative}
				
				else
					if v(i+1)=0 then v45:= v45 + 1;	{for type = 0}
			end;
		end;