e01f0.pl0

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

PROGRAM EX01;
VAR A,B;
BEGIN
  A:=60;
  B:=78;
 READ(B);
IF A>B 
THEN 
A:=89;
WRITE(A);
FOR A:=10; A<15; A:=A+1; DO
WRITE(A);
END.