Question

Составьте программу приветствие человека и ответ компьютера ПРИВЕТСТВИЕ ЧЕЛОВЕКА ОТВЕТ КОМПЬЮТЕРА Привет Привет Здравствуйте Здравствуйте Здорово Здравствуйте Добрый день Салют Приветик Салют Салют Салют Здравия желаю Вольно

Answer 1

Program privet;
var s: string;
begin
writeln ('Введите приветствие');
readln (s);
if s='Привет' then writeln ('Привет');
if (s='Здравствуйте') or (s='Здорово') then writeln ('Здравствуйте');
if (s='Добрый день') or (s='Приветик') or (s='Салют') then writeln ('Салют');
if s='Здравия желаю' then writeln ('Вольно');
end.