К одной загадке на свой выбор добавьте дополнительный вопрос, который будет появляться при правильном ответе на
предыдущий вопрос. Если пользователь правильно ответит
на него, добавьте к его результату .

код:
question_1 = "кто основал компанию тесла?"
answer_1 = "илон маск"

question_2 = "2+2*2"
answer_2 = 6

question_3 = "сколько ребер у куба?"
answer_3 = 12

point = 0

print("Игра началась")
print("первый вопрос")
print(question_1)

user_answer = input("Введите ваш ответ: ")

if user_answer == answer_1:
point = point + 1
print("ответ верный")
else:
print("ответ неверный")

print()

print("второй вопрос")
print(question_2)

user_answer = int(input("Введите ваш ответ: "))

if user_answer == answer_2:
point = point + 1
print("ответ верный")
else:
print("ответ неверный")

print()

print("третий вопрос")
print(question_3)

user_answer = int(input("Введите ваш ответ: "))

if user_answer == answer_3:
point = point + 1
print("ответ верный")
else:
print("ответ неверный")

print()

print("^игра окончена^")
print("^правильных ответов^" , point)

uses graphabc;

var x,y,i,n,k,x0,y0: integer;

begin

setwindowsize(640, 480);

setpenwidth(3);

line(10, 240, 630, 240);

line(320, 10, 320, 470);

line(620, 235, 630, 240);

line(620, 245, 630, 240);

line(315, 20, 320, 10);

line(325, 20, 320, 10);

n: =10;

for i: =1 to 61 do begin

line(o+i*n, 243, o+i*n, 237);

end;

for i: =1 to 46 da begin

line(317,20 +i*n, 323,20+i*n);

end;

x0: =320;

y0: =240;

k: =50;

for x: =-320 to 320 do

begin

y: =truns(k*sin(x/k);

putpixel(x0+x, y0-y, clred);

end;

textout (50,40; grafic y=sinx');

end.

Program primer;
procedure random(c,x,y:integer; var r:integer);
    begin
        case c of
                1 : r:=Random(ABS(Y)+ABS(x)+1)+x;
                2 : r:=Random(ABS(Y)+ABS(x)+1)+y;
                3 : r:=Random(Y-x+1)+x;
                4 : r:=Random(x-y+1)+y;
                5 : r:=Random(x+y);
                6 : r:=Random(ABS(x+y))-ABS(x+y);
                7 : r:=x;
                8 : r:=Random(ABS(ABS(x)-ABS(y)))-ABS(x);
                9 : r:=Random(ABS(ABS(x)-ABS(y)))-ABS(y);
        end;
   end;
var
  a,b: array of array of integer;
  i,j,x,y,c,m,p,sum:integer;  begin
Randomize;
sum:=0;
writeln('Кол-во строк и столбцов массива? //X,Y\\  ');
read(i,j); //Размерность массива
writeln('Диапазон чисел //от X,до Y\\ '); 
read(x,y); //и диапазон генерации вводятся с клавиатуры.
if (x=y) then
c:=7
else
if(x<0) and (y<0) then 
if (x<y) then 
c:=8
else
c:=9
else
if (x=0) or (y=0) then 
if(x<0) or (y<0) then 
c:=6
else
c:=5
else
if(x<0) or (y<0) then 
if (x<y) then 
c:=1
else 
c:=2
else
if (x<y) then 
c:=3
else 
c:=4;
SetLength(a,i);
for  m:=0 to i-1 do
  SetLength(a[m],j);
  SetLength(b,i);
  for  m:=0 to i-1 do
  SetLength(b[m],j);    
for  m:=0 to i-1 do begin  
writeln();
     for  p:=0 to j-1 do   begin                     
     random(c,x,y,a[m,p]);    {Заполнить двумерный массив случайными числами.}         
 sum:=sum+a[m,p];  {вычисляет сумму всех элементов массива}
          write (a[m,p]:3,' ':3);
           end; 
         end;  
        c:=0;   
        writeln('summa=',sum);  
 for  m:=0 to i-1 do begin {Затем организовать новый массив В  }
writeln();
     for  p:=0 to j-1 do  begin            
 if (a[m,p] <0) then          begin  
       b[m,p]:=1; {в котором заменить отрицательные элементы исходного массива на 1}        inc(c);  {Подсчитать количество замен.   }
   end       
   else         
  b[m,p]:=a[m,p]; {а значения остальных элементов оставить без изменения }
   write(b[m, p]:3, ' ':3);      
  end;         
 end;         
 writeln('kol=',c);        
  a:=NIL;          
b:=NIL;     
end.
// ABC Pascal