Составить программу в Паскале
 Составить программу, чтобы компьютер запросил имя пользователя и
его  год рождения, затем подсчитал
количество лет, дней и минут, прожитых, примерно, этим человеком. Результаты вывести
на экран.

type ye=1850..2100;var year, year1:ye;    name:string;    a:integer;beginwriteln('Какой сейчас год?');readln(year);writeln('Твое имя?');readln(name);writeln('В каком году ты родился(родилась)?');readln(year1);a:=year-year1;writeln('Твое имя ', name);writeln('Ты прожил ', a, ' Лет(года)');writeln('Ты прожил приблизительно ', a*365, ' дней');writeln('Ты прожил приблизительно ', a*364*24, ' часов');end.