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

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