Program A02_Ex9;
Var
  Data:String[10];
  Dia:String[2];
  Mes:String[2];
  Ano:String[4];
  DiaNum,MesNum:Integer;
  AnoNum,Resultado:Integer;
  Erro:Integer;
Begin
  write('Entre com uma data (DD/MM/AA): ');
  readln(Data);
  Dia:=copy(Data,1,2);  { Quebra a string: posi‡Æo inicial 1, nro. letras 2}
  Mes:=copy(Data,4,2);
  Ano:=copy(Data,7,2);
  Ano:= '19' + Ano;     { Concatena string '19' com a string de ano }
  writeln('Dia: ',Dia);
  Writeln('Mes: ',Mes);
  Writeln('Ano: ',Ano);
  writeln;
  val(Dia,DiaNum,Erro); { Converte a string em n£meros...}
  val(Mes,MesNum,Erro);
  val(Ano,AnoNum,Erro);
  writeln('Seu n£mero m gico ‚: ');
  Resultado:=DiaNum+MesNum+AnoNum;  { Para poder fazer c lculos com eles  }
  writeln(Resultado);   { Seu n£mero m gico... Ligue Dj  e ganhe na loto! }
  readln;
end.