Сравнение версий Мемуары / Сказка Про ОСЮНИКС
|
|
Следующая правка →
|
| 29 | 29 | ||
|---|---|---|---|
| 30 | if Start then begin | 30 | if Start then begin |
| 31 | Wave := 440.0 * ord(Key) / 255.0; | 31 | Wave := 440.0 * ord(Key) / 255.0; |
| 32 | WriteLn(Wave, ',', Level); | ||
| 32 | end; | 33 | end; |
| 33 |
|
||
| 34 | Delay(10); | 34 | Delay(10); |
| 35 | end; | 35 | end; |
| 36 | end. | 36 | end. |