uses crt;

var s : string; 

begin

clrscr;

write('nhap cau lenh :');readln(s);

if s = 'Hello' then writeln('Xin chao ban') else

if s = 'Ban co khoe khong' then writeln('Toi khoe') else

if s = 'Hom nay thu may' then writeln('Hom nay la thu tu') else 

if s = 'Hom nay la sinh nhat toi day' then writeln('Toi chuc mung ban') else writeln('Toi khong hieu ban noi gi ');

readln

end.

program bai_giai;
uses crt;
var s:string;
begin
 clrscr;
  readln(s);
  if(s='Hello') then write('xin chao ban')
  else if(s='ban co khoe khong')then write('toi khoe')
  else if(s ='hom nay thu may')then write('hom nay la thu tu')
  else if(s ='hom nay la sinh nhat toi day')then write('toi xin chuc mung ban')
  else write('toi khong hieu ban noi gi ');
 readln;
end.