repeat.txt

用VC写的扩充的pl0文法编译器

const a=1.4;
var x: integer;

begin
x=a;

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

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