e01d2.pl0

来自「编译原理课程设计 PL/0语言编译程序 c++builder」· PL0 代码 · 共 20 行

PROGRAM EX01;
VAR A,B,C;
BEGIN
  A:=88;
  B:=11;
 READ(C);
IF A>B 
THEN 
A:=100;
WRITE(A);
DO
FOR B:=100;B<300; B:=B+C; DO
  BEGIN
      A:=A-2;
  END;
WRITE(A); 
UNTIL A<10;

END.