Перейти на случайную метку

1:  writeln('1 один');
2:  writeln('2 два');
3:  writeln('3 три');
4:  writeln('4 четыре');
5:  writeln('5 пять');

a:=random(6);
  goto (a);

var m:set of byte;
.........
m:=[];
for i:=1 to 3 do
 begin
  repeat
   a:=random(5)+1;
  until not(a in m);
  m:=m+[a];
  writeln(s[a]);
 end;

label 0,1,2,3,4,5,6;
var
   a,b,a1,a2,a3,a4,a5:integer;
begin
   cls;
0: a:=random(6);
   if b=3 then goto 6;
   if ((a=a1) or (a=a2) or (a=a3) or (a=a4) or (a=a5) or (a=0))
      then goto 0
      else
         begin
            if a=1
               then goto 1;
            if a=2
               then goto 2;
            if a=3
               then goto 3;
            if a=4
               then goto 4;
            if a=5
               then goto 5;
         end;
 
1:  writeln('1 один');
    b:=b+1;
    a1:=a;
    goto 0;
2:  writeln('2 два');
    b:=b+1;
    a2:=a;
    goto 0;
3:  writeln('3 три');
    b:=b+1;
    a3:=a;
    goto 0;
4:  writeln('4 четыре');
    b:=b+1;
    a4:=a;
    goto 0;
5:  writeln('5 пять');
    b:=b+1;
    a5:=a;
    goto 0;
6:
end.

   Writeln('Что бегает по телу от страха?');
   Write('a:Букашки');Writeln('         b:Мурашки');
   Write('c:Таракашки');Writeln('      d:Барабашки');
   Read(o);
   if o='b'
      then
         begin
            writeln('Правильно!!!!!!!!');
            k:=k+500;
         end
      else
         begin
            writeln('Неправильно!');
            writeln('Правильный ответ - b');
         end;
   writeln('У вас - ',k,' очков');
   writeln('Нажмите Enter');
   readln;

var m:set of byte;
.........
m:=[];
for i:=1 to 5 do
 begin
  repeat
   a:=random(n)+1;//n- общее количество вопросов
  until not(a in m);
  m:=m+[a];
  writeln(s[a]);//значение в ячейке массива строк=название вопроса
 end;