{* Преобразование даты в числовой формат *}

Unit PAS71462;
Interface
Implementation
Begin
 writeln('Преобразование даты в числовой формат');
End.

Program pas71462;

Uses pas71462.pas; {* Эту строку можно удалить *}
Type {* Создание новых типов данных *}
  date = Record          year : 1900..2050;
  month : 1..12;
  day : 1..31;
  End;
Var {* Необходимые переменные *}
  d : date;
  s : String;
  k : byte;
  l : byte;
  m : byte;
  n : byte;
  Begin
  write('Введите дату в формате dd.mm.yyy: ');
  readln(s);
  k := ord(s[1]) - ord('0');
  l := ord(s[2]) - ord('0');
  d.day := 10 * k + l;
  k := ord(s[4]) - ord('0');
  l := ord(s[5]) - ord('0');
  d.month := 10 * k + l;
  k := ord(s[7]) - ord('0');
  l := ord(s[8]) - ord('0');
  m := ord(s[9]) - ord('0');
  n := ord(s[10]) - ord('0');
  d.year := 1000 * k + 100 * l + 10 * m + n;
  writeln(d.day);
  writeln(d.month);
  writeln(d.year);
  readln
  End.....