2. создайте файл информации по итогам сессии result.dat. для каждой группы каждого курса в файл заносится информация(количество курсов и групп на курсе фиксировано, сами номера курсов и групп в записи не хранятся): количество студентов в группе; количество допущенных к сессии; количество сдавших на «отлично»; количество сдавших на «хорошо» и «удовлетворительно»; количество получивших «неудовлетворительно».
type
RC=record
Kol:integer;
Dop:integer;
Kol5:integer;
Kol43:integer;
Kol2:integer
end;
var r:RC;
f:file of RC;
begin
Assign(f,'result.dat');
Rewrite(f);
repeat
Readln(r.Kol,r.Dop,R.Kol5,r.Kol43,r.Kol2);
if r.Kol>0 then
write(f,r);
until r.Kol=0;
Close(f)
end.