program project1;

uses
  SysUtils,
  crt;

var
  sel: char;

procedure Question(const question, a, b, c: string; correct: char);
begin
    writeln(question);
    writeln('(A)',a);
    writeln('(B)',b);
    writeln('(C)',c);
    Write('Alege varianta corecta: ');
    repeat
      readln(sel);

      if(sel <> correct) then begin
         write('Imi pare rau, dar ai gresit raspunsul,Alege dinou: ');
      end else begin
        writeln;
        writeln('Felicitari, raspunsul tau este corect!');
      end;
   until (sel=correct);
end;

procedure EnterToContinue();
begin
    writeln('Bine, sa trecem la urmatoarea intrebare!');
    writeln('Apasa <ENTER> pentru a continua.');
    readln();
end;

begin
   repeat
      clrscr;
      writeln('Bun venit la Quizz!');
      writeln('In acest joc vei raspunde la intrebari de cultura generala.');
      writeln('Pentru a incepe apasa <ENTER>');
      readln();

      Question('Cu cine se invecineaza Romania la SUD?',
         'Ungaria',
         'Ucraina',
         'Bulgaria',
         'C');

      EnterToContinue();

      Question('Care era cea mai practica piatra folosita de om in Paleolitic?',
         'Silexul',
         'Piatra de rau',
         'Carbunele',
         'B');

      EnterToContinue();

      Question('Cum se mai numea "Herodot"?',
         'Parinte',
         'Preot',
         'Parintele istoriei',
         'C');

      EnterToContinue();

      Question('Intre ce ani coloniile grecesti sunt supuse de romani?',
         '70-71 i.Hr.',
         '71-73 i.Hr.',
         '71-72 i.Hr.',
         'C');
      repeat
         Write('Joci dinou? D/N: ');
         readln(sel);
      until (sel = 'D') or (sel = 'N');
  until sel = 'N';
end.