repeat.pls

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

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.