13. В файле записаны данные о результатах сдачи экзамена. Каждая строка содержит фамилию, имя и количество , разделённые одним пробелом:<Фамилия> <Имя> <Количество >Вывести фамилии и имена тех учеников, которые получили больше 14. В задаче 13 добавить к списку нумерацию, например:1) Иванов Вася2) Петров Петя15. В задаче 14 сократить имя до одной буквы и поставить перед фамилией:1) В. Иванов2) П. Петров*17. В задаче 15 отсортировать список по убыванию полученного (вывести в выходной файлvar fin, fout: text; s: string; f, im, b: array[1..100] of string; s1, i, n, x, code: integer;begin assign(fin, 'input.txt'); reset(fin); n := 0; while not eof(fin) do begin readln(fin, s); inc(n); f[n] := copy(s, 1, pos(' ', s)); delete(s, 1, pos(' ', s)); im[n] := copy(s, 1, pos(' ', s)); delete(s, 1, pos(' ', s)); b[n] := copy(s, 1, 3); s:= s1 + ')' + im[1] + '.' + f[n]; end; close(fin); assign(fout, 'output.txt'); rewrite(fout); for i := 1 downto n do begin val(b[n], x, code); if x >= 80 then writeln(fout, s); end; close(fout);end.