Разработать программу для определения возраста по введённому пользователем года рождения, используя библиотеку для работы с системным временем (компьютера) #include и
функцию time (NULL), которая возвращает текущее время в секундах (начиная с 1 января 1970
года)
Пример программы
//пример использования функции time
#include
#include
#include
int main ()
{
long seconds;
seconds = time (NULL); // получить текущую дату, выраженную в секундах
printf("seconds = %d", seconds) // "Количество секунд с 1
января 1970 года = "
return 0;
}

1. "современный вариант" // pascalabc.net 3.0, сборка 1076 begin   var n: =readinteger('введите количество элементов массива: ');   var a: =arrrandom(n,1000,10000);   write('исходный массив: ',a,#13#10);   write('множество цифр из разряда сотен: ');   a.select(x-> (x mod 1000) div 100).sorted.distinct.println(',') end. тестовое решение: введите количество элементов массива: 8 исходный массив: [9374,4420,8856,8274,7555,2461,8302,6325] множество цифр из разряда сотен: 2,3,4,5,8 2. "школьный вариант" // pascalabc.net 3.0, сборка 1076 var   i,n: integer;   sd: set of 0..9;   a: array[1..50] of integer; begin   write('введите количество элементов массива: '); read(n);   randomize;   write('исходный массив: ');   sd: =[];   for i: =1 to n do begin       a[i]: =random(9001)+1000;       write(a[i],' ');       include(sd,(a[i] mod 1000) div 100)       end;   writeln;   write('множество цифр из разряда сотен: ');   for i: =0 to 9 do       if i in sd then write(i: 2);   writeln end. тестовое решение: введите количество элементов массива: 8 исходный массив: 5332 4215 7231 3399 6989 8904 7804 3517 множество цифр из разряда сотен:   2 3 5 8 9