Какой предмет маленький круглый и серый

Может быть это монета или камень.

Загадай число до 10 и умнож его на 2                                                                           вычти из результата задкманое число и прибавь к результату 5.                 вычти из результата задуманое число                                                                     выдай сообщение; ваш результат-5!                                                                      

//pascal abc.net v3.0 сборка 1111 var   ar: array[1..10] of integer;   i,k: integer; begin   randomize;   k: =0;   writeln('array: ');     for i: =1 to 10 do     begin;       ar[i]: =random(30);       write(ar[i]: 4);         if ar[i] mod 2=0 then k: =k+1;     end;   writeln;   write('res=',k); end.пример работы кода: array:   21   2   10   22   21   24   29   13   29   28res=5