Question

напишите пожалуйста программу с case 

Answer 1

          var    ch: char;
               begin
                  readln(ch);                
                    case ch of                     
                        'n','N': writeln('нет');                     
                        'y','Y': writeln('да')      
                     else writeln('нет значений диапазона')
                   end;
end.

Answer 2

Программа, при вводе одного из символов: y или Y выведет на экран слово «Да», а при воде n или N – слово «Нет».