repeat.pls

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

program pp;
 var i,j:integer;
 begin
     call read(i);
     call read(j);
     repeat
     begin
     call write(i);
     i:=i+1
     end;
     until i>j;
     call read(i)
 end.