Как сделать так,чтобы он выводил только ответ на вопрос, без вводных данных?

[Настя1303]

Во входном файле дано число m - порядковый номер дня недели, начиная с понедельника. Расписание врача следующее:
1(пн) - 9.30 - 12.00,
2(вт) - 10.00 - 15.00,
3(ср) - 13.30 - 17.00,
4(чт) - 16.00 - 20.00,
5(пт) - 8.00 - 16.30,
6(сб) - 10.00 - 13.00,
7(вс) - 10.00 - 12.00.
Определить приемные часы врача в заданный день недели.
Выведите ответ на поставленную задачу.

Примеры:
Вход
1
Выход
9.30 - 12.00

program n_h;
 var m: integer;
 begin
 readln(m);
  case m of
   1: writeln ('9.30 - 12.00')  ;
   2: writeln ('10.00 - 15.00') ;
   3: writeln ('13.30 - 17.00') ;
   4: writeln ('16.00 - 20.00') ;
   5: writeln ('8.00 - 16.30')  ;
   6: writeln ('10.00 - 13.00') ;
   7: writeln ('10.00 - 12.00') 
   end;
   writeln(m);
   end.

Пожалуйста, оформляйте Ваш код согласно правилам.
После ввода 1 выходит
9.30 - 12.00
1

[CMY_3]

он выводил только ответ на вопрос, без вводных данных

видимо не надо использовать процедуру вывода

Сообщение от Настя1303

writeln(m);

[Black Fregat]

А подумать? Какая строчка выводит "лишнее" число?

[Vit@L]

уберите

writeln(m);

и введенное пользователем число не будет отображаться на экране.

[Ottava]

Можно ещё добавить в конец case

else
writeln (‘Некорректный день недели’);

иначе вводишь 0 а в ответ тишина...