告诉我，有什么问题？
var
p, i: real;
begin
i:= 0.25;
for p := 0 to 16 do
begin
i := i * 2;
end;
writeln('Неверно, ему придётся заплатить: ', i:1:0);
end.
RError.com
在 Pascal 中，循环
For只能迭代Ordinal诸如 Integer 或枚举类型之类的类型。real和其他浮点类型是for不允许的。