Дан файл, содержащий различные даты. Каждая дата — это
число, месяц и год. Найти год с наименьшим номером. Паскаль

Программа будет работать, если каждая дата записана в отдельной строке, причем число, месяц и год отделяются пробеломvar f:text;    d,m,y,min:integer;beginAssign(f,'date.txt');Reset(f);min:=9999;while not eof(f) do begin readln(f,d,m,y); if y<min then min:=y; end;Close(f);writeln('min=',min);end.