01.txt

来自「进行语法的分析」· 文本 代码 · 共 12 行

PROGRAM ABC; 
VAR A,B,S:LONG;
PROCEDURE P (A:LONG); 
BEGIN
     IF A>B  THEN A:=A+VARE;
     WHILE A<B   DO TYRFGY:=A-B;
     READ(A,B);
       S:=A/B;
       S:=S-\PI;
     WRITE(A,B,S);
    END;.