Модуль crt

[An2ton1]

Средствами модуля CRT составить тест на любую тему, состоящий из трех вопросов (в каждом вопросе варианта ответа) и выставляющий оценку по окончании. С begin и end. pascal abc.net

[ViktorR]

И что?
Ждёте, когда Президент нажмёт кнопку, разрешающую вам начать выполнять задание?
Будьте смелее. Не скромничайте. Покажите на что вы способны.
Выложите хотя бы часть сделанного.

[Arigato]

Сообщение от An2ton1

С begin и end.

Вот заготовка кода с begin, end и модулем crt:

uses CRT;
begin
// тут ваш код
end.

[digitalis]

Ну вот, пол-дела сделано

[Abase_]

Я не уверен что правильно понял ваш запрос, но вот ответ:

program n1;
uses crt;
const
   b='Вы ответили правильно и получили 1 балл';
   c='Вы ответили неправильно и получили 0 баллов';
var
   a,k:real;
begin
  k:=0;
  writeln('1. Когда началась Великая Отечественная война?');///1 вопрос
  readln(a);
  if a=1941 then 
  begin
    k:=k+1;
    writeln(b);
  end
  else 
    writeln(c);
  writeln('Когда закончилась Великая Отечественная война?');/// 2 вопрос
  readln(a);
  if a=1945 then
  begin
    writeln(b);
    k:=k+1;
  end
  else
    writeln(c);
  writeln('В каком месяце освободили Великий Новгород?(Ответ вводить в цифрах)');/// 3 вопрос
  readln(a);
  if a=1 then
  begin
    k:=k+1;
    writeln(b);
  end
  else
    writeln(c);
  writeln('Вы закончили проходить тест и получили ',k,' баллов');///кол-во заработанных баллов
end.

[Aleksandr H.]

Abase_
для демонстрации что используется именно crt, еще добавить в начало тела

clrscr;