Написать программку возведения числа два в степень от 0 до 30 — Pascal(Паскаль)

uses crt;
var
REZ:extended;
i:integer;
begin
  clrscr;
  for i:=0 to 30 do
  begin
    REZ:=exp(ln(2) * i);
    writeln('2 в степени ',i,' равно ',REZ:15:2);
  end;
  readln;
end.