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.
это есте в ггле я знаю ты справишся