оператор выбора case of

[желающий знать]

Мне задали составить 2 несложные программы с case of!
Нужно сделать так, чтобы, когда нажимаешь N или n, то write('No'), если Y или y, то write('Yes');
С виду всё просто. Я написал следующее:

program u;
var i: char
Begin 
write('...'); read(i);
case i of
n,N : write('No');
y,Y : write('yes');
else write(' вы ввели не ту букву');
end;
end.

Но у меня ничего не вышло с char, тогда я попробовал со string, снова что-то не так!!!!!!
Прошу помочь!
Заранее спасибо!

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[barsyu]

Var i: char;
Begin
    Readln(i);
    Case i of
       N, n: writeln(‘yes’);
       Y, y: writeln(‘no’);
    End;
End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

barsyu, а зачем писать неверный пример в качестве ответа?!! чему у Вас равны (и где они задаются) переменные N, n, Y, y ?! для компилятора это тайна!

Желающий знать, попробуйте такой код

program u;
var i: char;
Begin 
  writeln('...'); 
  readln(i);
  case i of
    'n','N' : write('No');
    'y','Y' : write('yes');
    else write(' вы ввели не ту букву (',i,')' );
  end;
end.

[Poma][a]

а чтобы не было этого

    'n','N' 
    'y','Y'

можно воспользоваться UpCase

[Базиля]

Но у меня ничего не вышло с char, тогда я попробовал со string, снова что-то не так!!!!!!

Выражение-селектор в операторе case не может быть строкового типа! Это я так, на будущее Пригодится