Begin
A:=Worse;
B:=Good;
C:=Excellent;
writeln ('How Are You Feeling Today? Worse,Good,Excellent');
readln (D);
if D=A then
writeln ('Sorry You feel that way today');
if D=B then
writeln ('Maybe tomorrow you will feel better');
if D=C then
writeln ('I am glad you are feeling so good today');
readln;
End.