Maquina do tempo

program maquinadotempo;
  Var N,X,i,a:integer;

  begin
  writeln('forneça o ano de nascimento da pessoa');
  readln(N);
  writeln('forneça o ano atual');
  readln(X);
  i:=(X-N);
  writeln('a idade da pessoa é',i);
  a:=(2048-N);
  writeln('a idade da pessoa em 2048 é', a);
  end.