uses crt;
var day:integer;
label 11,22,33,44,55;
begin;
clrscr;
writeln('введите номер дня недели');
readln(day);
case day of
1:goto 11;
2:goto 22;
3:goto 33;
4:goto 44;
5:goto 55;
end;
writeln('А у нас пятидневка');
halt;
11: writeln ('1.математика');
    writeln ('2.математика');
    writeln('3.химия');
    writeln('4.физика');
    writeln('5.биолог');
    halt;
22: writeln ('1.математика');
    writeln ('2.литер.');
    writeln ('3.ин.яз.');
    writeln ('4.физика');
    writeln ('5.физ-ра');
    halt;
33: writeln ('1.литер.');
    writeln ('2.литер.');
    writeln ('3.ин.яз.');
    writeln ('4.химия');
    halt;
44: writeln ('1.инф');
    writeln ('2.математика');
    writeln ('3.биолог');
    writeln ('4.географ.');
    writeln ('5.географ');
    halt;
55: writeln ('1.математика');
    writeln ('2.литер.');
    writeln ('3.истор');
    writeln ('4.истор');
    writeln ('5.литер.');
    halt;
end.