PASCAL ABC Дано расписание работы врачей поликлиники ** текущий день: терапевт - 9.00 -...

Question

PASCAL ABC Дано расписание работы врачей поликлиники на текущий день: терапевт - 9.00 - 13.00, окулист - 11.00 - 14.00, хирург - 12.00 - 17.00. Составить программу, которая по первой букве названия врача напечатает время его приема или сообщение, что такой врач не принимает.

Answer 1

var n:char;

begin

   readln(n);

   if(n = 'т') then write('9.00 - 13.00')

   else if(n = 'о') then write('11.00 - 14.00')

   else if(n = 'х') then write('12.00 - 17.00');

end.