задания по программированию для начинающих

Ответ от Максим Ярошенко[мастер]
у тебя не получается потому что ты объявил a как char (а это только 1 символ) , надо так:
Program x4IPx;
var a:string;
begin
readln(a) ;
if a='privet' then writeln ('privet') ;
if a='zdravstvuyte' then writeln ('zdravstvuyte') ;
if a='privet' then writeln ('privet') ;
if a='dobrbly' then writeln ('salut') ;
if a='privetik' then writeln ('salut') ;
if a='salut' then writeln ('salut') ;
if a='zdravie' then writeln ('volno') ;
readln ;
end.