Не работает цикл for в Паскале

Подскажите, в чём проблема?

var 
  p, i: real; 
begin
i:= 0.25;
for p := 0 to 16 do
    begin
    i := i * 2;
    end;
writeln('Неверно, ему придётся заплатить: ', i:1:0);
end.