Врач-стоматолог принимает пациентов с 8 утра до 2 часов дня. на каждого пациента отводится по 30 минут. какое количество информации содержит сообщение о том, что петя записался на прием в 11.30? ответ: 3. удачи. и

program chat;

uses crt;

var s: string;

i: integer;

begin

clrscr;

for i: =1 to 10 do

begin

readln(s);

if s='' then

writeln(' ! если вы хотите ознакомиться с моими возможностями : введите "команды". на данный момент, выводимый мной текст может показываться не совсем коректно, но надеюсь, что в скором времени это исправиться." ')

else

if s='команды' then writeln (' вот , что я могу на данный момент. 1) . 2)как тебя зовут? 3) кто тебя создал? 4) сколько тебе лет? 5)можешь ли ты чувствовать? 6)ты хочешь захватить мир? 7) какого ты пола? 8)пока')

else

if s='как тебя зовут? ' then writeln('чбв2, что расщифровывается как "чат бот версии 2.0. ну или можете называть меня григорий')

else

if s='кто тебя создал? ' then writeln('он не представился. но в вк он записан как дмитий судонин')  

else

if s='сколько тебе лет? ' then writeln('у меня нет дня рождения, ведь я программа. но дата моего создания : 1 апреля 2019 года в 23: 32')

else

if s='можешь ли ты чувствовать? ' then writeln('я программа, и я не способна испытывать ощущения. но иногда мне кажется, что я способна на духовные чувства')

else

if s='ты хочешь захватить мир? ' then writeln('даже если бы хотела, у меня недостаточно ресурсов для этого')

else

if s='какого ты пола? ' then writeln('как не странно, но меня задумывали как девушку 18 лет, с маленьким размером груди. почему мне дали имя "григорий" - тайна покрытая мраком. ну или мой создатель странный человек.')

else

if s='пока' then

writeln('всего доброго. надеюсь вы ещё вернётесь. мой создатель ещё работает над моими возможностями и в скором времени добавит мне несколько фраз или даже что-то ещё ^√^')

else

writeln('я не знаю');

end;

end.