repeat.txt

来自「用VC写的扩充的pl0文法编译器」· 文本 代码 · 共 13 行

const a=1.4;
var x: integer;

begin
x=a;

repeat
x:=x+1;
until x>10 ;

write("x=",x);
end.