Шаблон создания теста — Pascal(Паскаль)

var
  RightCount: byte;
  answer: byte;

begin
  RightCount := 0;
  writeln('Для ответа на вопрос введите вариант правильного ответа и нажмите Enter');
  writeln('Кто убил Кеннеди?');
  writeln('1 - Я');
  writeln('2 - Ты');
  writeln('3 - Гейтс');
  writeln('4 - Болт в кожаном пальто');
  readln(answer);
  if (answer = 1) then
    inc(RightCount);

  writeln('Кто такой Зилибоба');
  writeln('1 - Я');
  writeln('2 - Ты');
  writeln('3 - Гейтс');
  writeln('4 - Не знаю');
  readln(answer);
  if (answer = 2) then
    inc(RightCount);

  // тут еще 18 штук...копипэйсти :)

  writeln('Количество правильных ответов: ', RightCount);
  readln;

end.