ааа

program name;

var s:string;

begin

writeln('Здравствуйце! Я буду вашим памочникам у этого ДА, компьютера, вотЭээ. Напишите, чэм я маго памочь: ');

readln(s);

if s=('Привет') then

writeln('Здравствуйце, ребатушки!');

readln(s);

if s=('Хочеш секс?') then

writeln('Не, ну, я как бы ЭЭЭ ты не Малуха, вот....');

readln(s);

if s=('Включи калькулятор') then

writeln('Не, ну, я по вашему математик такой сякой ПРИМЕРНО не могу счытаць. Спросите у гажетов своих, там, это вот.');

readln(s);

if s=('Эта вот') then

writeln('ТАК НУ СКОЛЬКА МОЖНА ТАМ ШУТИТЬ СВАИ ШУТЕЕЧКИ, А???');

readln(s);

End.