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.
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.