Что такое за устройство ввода используемое для компьютером во время игры? 8 букв

Джойстик, геймпад, клавиатура зависит от игры

Pascalabc.net var   a: array[1..10000] of integer;   kz,maxp,n,i,j: integer;   begin     i: =0;   maxp: =integer.minvalue;   writeln ('готов к приему чисел');   repeat     i: =i+1;     readln (a[i]);     until a[i]=0;   n: =i-1;   readln (kz);   for i: =1 to n-1 do      for j: =2 to n do        if maxp< (a[i]*a[j]) then maxp: =(a[i]*a[j]);     writeln ('получено ',n,' чисел');   writeln;   writeln ('полученное контрольное значение: ',kz);   writeln;   writeln ('вычисленное контрольное значение: ',maxp);   writeln;   if kz=maxp      then writeln ('контроль пройден')     else writeln ('контроль не пройден'); end. результаты: 1) готов к приему чисел 1 2 3 4 5 0 20 получено 5 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 20 контроль пройден 2) готов к приему чисел 1 2 3 4 5 6 0 20 получено 6 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 30 контроль не пройден

Program vasha_zadacha_1; var b,c: integer;     a: array [1..20] of integer;   begin  randomize;   b: =0;   for c: =1 to 10 do begin    a[c]: =random(0,99);     writeln('элемент массива ==> ', a[c]);     if (a[c] mod 2 = 0) then b: =b+a[c];     end;   writeln('сумма чётных элементов массива', b);   end.program vasha_zadacha_2; var b,c: word ;   a: array [1..20] of integer;   begin  randomize;   b: =1;   for c: =1 to 10 do begin    a[c]: =random(0,99);     writeln('элемент массива ==> ', a[c]);     b: =b*a[c];     end;     writeln('произведение всех элементов массива ', b);   end.program vasha_zadacha_3; var b,c: word ;   a: array [1..20] of integer;   begin  randomize;   b: =0;   for c: =1 to 10 do begin    a[c]: =random(0,99);     writeln('элемент массива ==> ', a[c]);     if (a[c] > = 50) and (a[c]< =60) then b: =b+a[c];     end;   writeln('сумма элементов в диапазоне от 50 до 60 ', b);   end.