Program zap_11;
Uses Crt;
Const
n = 6;
Type
rasp = record
k, k1: byte;
Vrem, klas, pred: string[20];
end;
Var
a: array [1 .. n] of rasp;
i: byte;
BEGIN
ClrScr;
for i := 1 to n do
with a[i] do
begin
Writeln('Введите номер урока ');
Readln(k);
Writeln(' Время начала урока');
Readln(Vrem);
Writeln('Класс');
Readln(klas);
Writeln('Предмет');
Readln(pred);
Writeln('N кабинета');
Readln(k1);
End;
Writeln('Расписание занятий');
for i := 1 to n do
with a[i] do
Writeln(k, ’ ‘, Vrem, ’ ‘, klas, ' ', pred, ' ', k1);
Readln;
end.