Привет, помогите придумать программу ** паскале, чтобы можно было бы типо вести диалог с...

Question

Привет, помогите придумать программу на паскале, чтобы можно было бы типо вести диалог с "компом" на заданных параметрах, чтобы когда пишешь (привет) - он тебе тоже писал (привет), на вопрос (как дела) - писал бы (хорошо). очень надо - помогите чем сможете

Answer 1

var
A:string;
begin
readln(A);
if (A='привет') or (A='Привет') then writeln('Приветсвую, как дела?');
readln(A);
if (A='Хорошо') or (A='хорошо') then writeln('У меня тоже все хорошо');
if (A='Плохо') or (A='плохо') then writeln('Мне тоже грустно');

end.