Program zap_9;
Uses Crt;
Const n=10;
Type rasp = record
pred, vid,prep:string[20];
data:string[8];
end;
Var a : array[1..n] of rasp;
i :byte;
BEGIN
ClrScr;
for i:=1 to n do
with a[I] do
begin
Writeln('Введите предмет ',I);
Readln(pred);
Writeln(' Вид отчетности');
Readln(vid);
Writeln('Дата');
Readln(data);
Writeln(' ФИО преподавателя');
Readln(prep);
End;
Writeln('расписание экзаменов и зачетов');
for i:=1 to n do
with a[I] do
writeln (pred,’ ‘,vid,’ ‘,data,’ ‘,prep);
Readln;
end.