15 ! я хочу создать рандом в программе "scratch" (случайные перемещения персонажа как это

Program zadacha; const n = 10; var a: array [1..n] of integer; i, b: integer; begin writeln('введите через пробел ', n, ' чисел'); for i : = 1 to n do read(a[i]); b : = 0; for i : = 1 to n do if a[i] < 0 then b : = b + 1; if b > = 2 then begin for i : = 1 to n do if a[i] < 0 then a[i] : = a[i] - 2; for i : = 1 to n do write(a[i], ' '); end else begin b : = 1; for i : = 1 to n do if a[i] < a[b] then b : = i; writeln('номер первого минимального элемента массива - ', b); end; readln; end.

Требуется перевести дробное десятичное число 206,116 в дробное двоичное число.  перевод целой части дает 206=11001110(для этого мы делим 206 на два и записываем остатки от деления) , затем дробную часть умножаем на основание 2, до тех пор, пока дробная часть не будет равна нулю, занося целые части произведения в разряды после запятой искомого дробного двоичного числа:   .116 • 2 = 0.232  .232 • 2 = 0.464  .464 • 2 = 0.928  .928 • 2 = 1.856  .856 • 2 = 1.712  .712 • 2 = 1.424  .424 • 2 = 0.848  .848 • 2 = 1.696  .696 • 2 = 1.392  .784 • 2 = 0.784  получим: 206=11001110,0001110110