// PascalABC.NET 3.6
type
TR = record
Имя, Отчество, Фамилия: string;
Возраст, НомерКласса: integer;
БукваКласса: char;
end;
function ПринятьСведения: TR;
begin
Result.Имя := ReadlnString('Имя:');
Result.Отчество := ReadlnString('Отчество:');
Result.Фамилия := ReadlnString('Фамилия:');
Result.Возраст := ReadlnInteger('Возраст:');
Result.НомерКласса := ReadlnInteger('Номер клвсса:');
Result.БукваКласса := ReadlnChar('Буква класса:');
end;
procedure ВывестиСведения(L: List<TR>);
begin
foreach var r in L do
Writeln(r.Имя+' '+r.Отчество+' '+r.Фамилия:40,
r.Возраст:4, r.НомерКласса+r.БукваКласса:4)
end;
begin
var p := new List<TR>;
var n := ReadlnInteger('Сколько учеников добавить?');
loop n do
p.Add(ПринятьСведения);
p := p.OrderByDescending(t -> t.Имя).ToList;
ВывестиСведения(p);
end.
