Даны числа A, B (A > 1). Получить все степени числа A, меньшие числа B. (программа Паскаль)

program STEPENI;
var A, B, C: real;
begin
readln (A, B); C := A;
while C < B do
    begin
writeln (C);
C := C*A;
     end;
end.