input3.txt

来自「小型对delphi编译器包括语法语义及词法」· 文本 代码 · 共 14 行

program ac;
var
a,b:integer;
//var
c,d:real;
begin
while(a>b|a>c&a<d)
do
begin
a:=a+a*3;
c:=a+c+2;
end;

end.