Obarvený kód souboru iqtest.pas

var bodu,misto  : integer;
    k           : char;
const
     otazka   : array [0..5] of string[70] =
                (' Vase volba?',
                ' 1. Jaka bankovka ma nejvyssi cenu',
                ' 2. Kolik dnu bude mit tyden, zrusi-li se posledni den',
                ' 3. Co je tezsi',
                ' 4. Ktere mesto lezi severneji',
                ' 5. Kdy byla objevena Amerika');
     odpoveda : array [1..5] of string[70] =
                (' A. 10,-',
                ' A. 7',
                ' A. 1kg peri',
                ' A. Praha',
                ' A. 1391');
     odpovedb : array [1..5] of string[70] =
                (' B. 20,-',
                ' B. 0',
                ' B. 1kg zeleza',
                ' B. Ostrava',
                ' B. 1492');
     odpovedc : array [1..5] of string[70] =
                (' C. 25,-',
                ' C. 6',
                ' C. nic',
                ' C. ani jedno',
                ' C. 1493');
     bodua    : array [1..5] of integer =
                (  1,-10,-10,-10,-10);
     bodub    : array [1..5] of integer =
                ( 10, 10,-10, 10, 10);
     boduc    : array [1..5] of integer =
                (-10,  1, 10,  1,  1);
procedure color(pismo, pozadi:integer);
 begin
  textcolor(pismo);
  textbackground(pozadi);
 end;
procedure pisotazku(cislo:integer);
var pomoc:integer;
 begin
  gotoxy(5,10);
  color(4,1);
   write(otazka[cislo]);
  for pomoc:=1 to (70-length(otazka[cislo])) do
   write(' ');
  color(0,15);
  gotoxy(5,11);
   write(odpoveda[cislo]);
  for pomoc:=1 to (70-length(odpoveda[cislo])) do
   write(' ');
  gotoxy(5,12);
   write(odpovedb[cislo]);
  for pomoc:=1 to (70-length(odpovedb[cislo])) do
   write(' ');
  gotoxy(5,13);
   write(odpovedc[cislo]);
  for pomoc:=1 to (70-length(odpovedc[cislo])) do
   write(' ');
  gotoxy(5,14);
  color(4,1);
   write(otazka[0]);
  for pomoc:=1 to (70-length(otazka[0])) do
   write(' ');
 end;
procedure smazscr;
 begin
  color(15,0);
  clrscr;
 end;

begin
bodu:=0;
smazscr;
 for misto:=1 to 5 do
  begin
   pisotazku(misto);
    repeat
     k:=readkey;
     k:=upcase(k);
      case k of
       'A' : bodu:=bodu+bodua[misto];
       'B' : bodu:=bodu+bodub[misto];
       'C' : bodu:=bodu+boduc[misto];
      end;
    until (k='A') or (k='B') or (k='C');
  end;
smazscr;
write('Dosahl jste ',bodu,' bodu!');
 repeat
 until keypressed;
end.

created by PaJa