Для знатоков javascriptреализовать игровую программу «однорукий бандит» (игровой автомат).1. в начале игры пользователю выдаётся 5000 кредитов (очков).2. случайным образом на барабанчиках выпадает три значения от 0 до 7.3. призовые комбинации: 0 0 0, 1 1 1, 2 2 2, 3 3 3, 4 4 4, 5 х х, 5 5 х, 5 5 5, 7 х х,7 7 х, 7 7 7 (на месте х может быть любая цифра).4. штрафная комбинация: 6 6 6.5. все остальные комбинации нейтральные.6. в любом случае, за показ новой комбинации с игрового счета пользователяснимается 100 очков.7. если выпадает три одинаковые цифры (кроме 666) игроку добавляется 300очков.8. если выпадает две одинаковые цифры подряд (например 255) игрокудобавляется 200 очков.9. если выпадает штрафная комбинация игрок теряет 300 очков.10. игра заканчивается поражением, если деньги закончились.11. игра заканчивается победой, если выпадает джек-пот (7 7 7).12. ник игрока. любым реализовать ввод имени игрока и показ его наэкран. например, кроме кнопки старт и чисел на экране у пользователя естькнопка “вход”. по нажатию на нее открывается окно ввода текста (имяпользователя). затем имя пишется на html странице.13. дизайн страницы - на выбор. необходимо поменять фон и наличие картинки/нок

var  mas1, mas2: array[0..9] of integer;  t, k, i, j: integer; 
begin  
readln(t);  
readln(k);  
for j := 0 to 1 do  begin   
      if (j = 1) then writeln();        
                 for i := 0 to 9 do    begin      
                          if(j = 0) then begin       
                                  mas1[i] := random(100);        
                                    write(mas1[i], ' ');       
                                    if mas1[i] > t Then mas1[i] := mas1[i] + 4;      
                              end      
                            else 
                               begin       
                                      mas2[i] := random(100);        
                                      write(mas2[i], ' ');       
                                       if mas2[i] > 10 * K Then         
                                            mas2[i] := mas2[i] + K;      
                                end;    
                       end;       
                  for i := 0 to 9 do     
                         if (j = 0) then 
                               write(mas1[i]) 
                        else 
                                write(mas2[i]);    
               writeln();  
           end;  
readln();
end.

))

Uses Crt;
const
  n=10;
var
  a,b:array[1..n] of integer;
  i,k,t:integer;
begin
  ClrScr;
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(50);
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n do begin
    b[i]:=Random(50);
    Write(b[i],' ')
    end;
  Writeln;
  Write('k t='); Read(k,t);
  for i:=1 to n do begin
    if a[i]>t then a[i]:=a[i]+4;
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n do begin
    if b[i]>10*k then b[i]:=b[i]+k;
    Write(b[i],' ')
    end;
  Readkey
end.

Тестовое решение:
1 6 23 12 47 1 44 24 6 18
31 30 30 29 0 3 43 32 46 21
k t=2 20
1 6 27 12 51 1 48 28 6 18
33 32 32 31 0 3 45 34 48 23