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.