Создайте файл информации по итогам сессии result.dat. Для каждой группы каждого курса в файл заносится следующая информация (количество курсов и групп на курсе фиксировано, сами номера курсов и групп в записи не хранятся);
* количество студентов в группе;
* количество допущенных к сессии;
* количество сдавших на «отлично»;
* количество сдавших на «отлично» и «хорошо»;
* количество получивших «неудовлетворительно».
Type element=record
kg:char;
kd:char;
ko:char;
koh:char;
kn:char;
end;
var
f:file of element;
x:element;
c:char;
Begin
Assign (f,'C:\Users\Admin\Desktop\Result.txt');
rewrite(f);
writeln ('enter chars');
repeat
read(x.kg);
read(x.kd);
read(x.ko);
read(x.koh);
read(x.kn);
write(f,x);
writeln('continue? y/n');
readln©;
until c='n';
close(f);
End.