for.pl

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

program pp;
var n,p:integer;
var a:array [1..8] of integer;
procedure p1(n:integer; var p:integer);
var i:integer;
begin
  p:=0;  
  
  for i:=1 to n
        do
  	p:=p+1;
  	
end;

begin
  call read(n);
  call p1(n,p);
  call write(p)
end.