这是我们的一个上机题,做词法分析和语法的,希望对大家的学习有所帮助

				program pp;
				var n,p:integer;
				procedure p1(n:integer;	var p:integer);
					begin
					  p:=0;
					  repeat
						  begin
								n:=n+1;
								p:=p+1;
					  	end
				  	until(n>=10)
					end;
				
				begin
				  call read(n);
				  call p1(n,p);
				  call write(p);
				end.