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

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.