program pagamento_monge;
uses crt;
Var
  g: real;
BEGIN
 g:= 2;
 g:= exp(ln(g)*64);
 writeln('O monge vai receber ',g:20:0, ' graos');
 readkey;

END.
{O valor exato é 18.446.744.073.709.551.616 mas no pascal não sai as 4 ultimas casas
ficando no caso 18.446.744.073.709.550.000  por que?}