program Gra;
uses crt, dos;


type
   pytanie = record
      question, a, b, c, d : string;
      answer : char;
   end;
procedure kreska(x, y, l : integer; p : boolean);
var i : integer;
begin
  for i := 1 to l do
    begin
      gotoxy(x, y);
      write('*');
      if p = true then
         inc(x)
      else
         inc(y);
    end;

end;




procedure ramka(x,y,a,b : integer);
begin

end;


var
  q : array [1..10] of pytanie;


function pytaj(q : pytanie)  : boolean;
var odp : char;
begin
  writeln(q.question);
  writeln(q.a);
  writeln(q.b);
  writeln(q.c);
  writeln(q.d);
  readln (Odp);
  if odp = q.answer then
     pytaj := true
  else
     pytaj := false;

end;

begin

  q[1].question := 'Jaka pojemnosc ma dyskietka 5.25 cala (Podwojnej gestosci) ?';
  q[1].a :=  'A. 1.44MB';
  q[1].b :=  'B. 5.25MB';
  q[1].c :=  'C. 360Kb';
  q[1].d :=  'D. 520Kb';
  q[1].answer := 'c';

  Clrscr;

  if pytaj(q[1]) = true then
    writeln('Dobrze')
  else
    writeln('Zle') ;



  readln;
end.