Напишите для обработки натурального числа в паскале

Var
  i: real; //Натуральное число
begin
  readln(i); //Считал число
  while (i > 5) do //В условном цикле...
    i := i / pi; //...преобразовал число
  writeln(i); //Вывел число
end.