Можно поступить следующим образом, поскольку некоторые символы мы не можем ввести с клавиатуры. Вот примеры:
WriteLn(' Вычислить предел выражения 3x^2+x+2 при х стремящемся к бесконечности');
WriteLn (' Вычислить определенный интеграл функции 5*sin(x) при х от 0 до 1');
WriteLn (' Найдите сумму ряда 1 / 2*n при n от 1 до бесконечности);
и. т.д
Затем следует приглашение ввести правильный ответ в виде символа Sim (лучше по английски a, b, c или d).
После чего следует анализ. Пусть правильный ответ Rez:=d. Тогда
if (Sim = Rez) then Writeln (' Верно!') else WriteLn (' Увы...');
Вот в таком плане можно составлять тесты.