【傻瓜电梯】（3＋3＋3＋3＋3＋3＝18分）
所谓傻瓜电梯指的是在响应用户请求时缺乏相应的“智商”，在上升或下降的过程中不能把中途的乘客捎带入电梯，而只会严格按照用户发出请求的先后顺序依次完成任务。
比如，原来电梯在1楼，首先6楼有一位乘客发出请求，要求由6楼乘坐到10楼去，此时电梯马上会上去，但在电梯上升到3楼时，另外一位乘客发出请求由5楼乘坐到8楼去，傻瓜电梯却不会在上升途中把5楼的乘客捎带上去，而只会先把6楼的乘客送到10楼，然后再下来把5搂的乘客送到8楼。
傻瓜电梯由i楼上升到i+1楼（或下降1楼）的时间都是3秒，每到达一个楼层，不管进出乘客有多少，所耽搁的时间都是6秒。现在告诉傻瓜电梯n个用户请求，计算傻瓜电梯把所有乘客送到目标楼层时总共所需要的时间。
输入的第一行包含两个整数x（1<=x<=50）和n（1<=n<=100），分别表示傻瓜电梯开始所在的楼层和一共所有的请求数目。下面有n行，每行包含3个整数，依次表示该请求发出的时刻、乘客目前所在的楼层和将要去的目标楼层。其中请求发出的时间以秒为时刻单位，最大可能的值是2000。如果某两个请求的发出时间相同，则按照输入时的先后顺序依次处理。
输出只包含一行一个整数，表示傻瓜电梯把所有乘客送到目标楼层后总共所需要的时间（从得到第一条请求时开始计算时间），单位是秒。
下列是用来解决该问题的程序，请将程序补充完整。
输入样例：
3 4
10 10 2
18 1 9
2 1 12
8 6 10
输出样例：
162

program test_0906;
const
	maxn= 100 + 5;
var
	n,start: longint;
	ti,st,sf: array[1..maxn] of longint;

procedure inputdata;
var
	i: longint;
begin
	readln(start,n);
	for i:= 1 to n do readln(ti[i],st[i],sf[i]);
end;

procedure solveprob;
var
	i,j,k,tmp,ans: longint;
begin
	for i := 1 to n-1 do
	begin
		k :=  i  ;
		for j := i+1 to n do
			if ti[k] > ti[j] then k := j  ;
		if k <> i then
		begin
			tmp := ti[k];
			ti[k] := ti[i];
			ti[i] := tmp;
			tmp := st[k];
			st[k] := st[i];
			st[i] := tmp;
			tmp := sf[k];
			sf[k] := sf[i]  ;
			sf[i] := tmp;
		end;
	end;
        ans := 0;
	for i := 1 to n do
	begin
		if (i > 1) and (ti[i] > ans) then ans := ti[i];
		ans := ans + abs(st[i] - start) * 3;
		ans := ans +  abs(sf[i]-st[i])*3 ;
		if start <> st[i] then ans :=  ans+6  ;
		ans := ans + 6;
		start := sf[i];
	end;
	writeln(ans);
end;

begin
		inputdata  ;
		solveprob;
end.