varA:string;beginreadln(A);if (A='привет') or (A='Привет') then writeln('Приветсвую, как дела?');readln(A);if (A='Хорошо') or (A='хорошо') then writeln('У меня тоже все хорошо');if (A='Плохо') or (A='плохо') then writeln('Мне тоже грустно');
end.
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.