编译原理的教程和一个实习的例子程序

				program pp;
				var a, b, c, d, e, f, g, h:integer;
				procedure proc();
				begin
				 call write(1);
				end;
				 
				begin
				 a :=0;
				 b :=1;
				 c :=2;
				 d:=3;
				 e:=4;
				 f:=5;
				 g:=6;
				 h:=7;
				 
				 c := a+b;
				 
				 call write(a);
				 call write(b);
				 call write(c);
				 call write(d);
				 call write(e);
				 call write(f);
				 call write(g);
				 call write(h)
				 
				end.