case.pls

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

program pp;
 var i,j:integer;
 begin
     call read(i);
     case i of
     1:
     begin
     j:=1;
     call write(j)
     end;
     2,3,4,5:
     begin
     j:=2;
     call write(j)
     end;
     else
     begin
     j:=10;
     call write(j)
     end
     end;
     call read(i)
 end.