input3.txt

小型对delphi编译器包括语法语义及词法

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.