Написать программку, которая по номеру денька недели (целому числу от 1

var
nbsp;nbsp;a: integer;
nbsp;
begin
nbsp;nbsp;readln(a);
nbsp;nbsp;case a of
nbsp;nbsp;nbsp;nbsp;1: writeln(В понедельник у меня 4 урока!);
nbsp;nbsp;nbsp;nbsp;2: writeln(Во вторник у меня 1 урок!);
nbsp;nbsp;nbsp;nbsp;3: writeln(В среду у меня 3 урока!);
nbsp;nbsp;nbsp;nbsp;4: writeln(В четверг у меня 4 урока1);
nbsp;nbsp;nbsp;nbsp;5: writeln(В пятницу у меня 5 урока!);
nbsp;nbsp;nbsp;nbsp;6: writeln(В в субботу у меня 4 урока!);
nbsp;nbsp;nbsp;nbsp;7: writeln(В воскресенье я почиваю!);
nbsp;nbsp;end;
end.

Var
nbsp;nbsp;x: integer;
BEGIN
Repeat
nbsp;Write(Ввести число от 1 до 7: );
nbsp;Readln(x);
until x in [1..7];
Case x of
nbsp;nbsp;1: Writeln(4 пары);
nbsp;nbsp;2: writeln(2 пары);
nbsp;nbsp;3: writeln(4 пары);
nbsp;nbsp;4: writeln(4 пары);
nbsp;nbsp;5: writeln(2 пары);
nbsp;nbsp;6: writeln(нет пар);
nbsp;nbsp;7: writeln(нет пар);
end;
Readln
END.