program test;
Var o: integer;
Begin
Writeln('И так начинаем тестирование');
WriteLn('Первый вопрос: Медленное животное из списка? 1)Зебра 2)Черепаха 3)Верблюд 4)Улитка');
readln(o);
Case o of
1: writeln('Неверно, это не Зебра!');
2: writeln('Неверно, это не черепаха!');
3: writeln('Неверно, это не верблюд!');
4: writeln('Правильно, это улитка!');
Else writeln('Ошибка');
end;
End.

Типо так, и продолжаешь...