Блокировка клавиатуры

[bunner]

Как при составлении теста в паскале сделать так называемую защиту от дураков, тоесть что бы при его выполнении ученик мог нажать только те кнопки, которые предпологают ответ.

[Sazary]

Используйте readkey (в модуле CRT). Эта функция возвращает код нажатой клавиши.
Пример:

uses crt;
var ch : char;
begin
clrscr;

while true do
begin
writeln('Vy deistvitelno hotite vyjti? (y/n)');
repeat
ch := readkey;
until (ch = 'y') or (ch = 'n');
if ch = 'y' then break;
end;
end.